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1.0 ABSTRACT 
THIS_PROGRAM PERFORMS PORT 1 OF THE RKELL/RKOG SUBSYSTEM YERIFICATION 
Tee He eee ee ee eT Pony comtbosun oF Fae ENTIRE. 5388) Bead 
TReLue? NG i UNTBUS INTERF BC — AND ACCESS TO MAIN MEMORY. THE EET End 
a Peet EMPLOY ST-CASE SITUATIONS “EVOLVING MECHANICAL 
. ¢ FRAN N  ACOITION, 
Pais a Kf “a Nhe "YS DRIVE OPERATIONAL TIRING. 
WITHIN THE vABI2US TESTS, EMPHASIS IS GIVEN TO USEFUL SCOPE 
Harpe ane SPERRS OR SPE CTF IORSION oF TES? PaRGHETER GatoESO” ae one 
BESifowa ¢ oF ering THE FOLLOWING OPTIONS MAY BE SPECIFIED BY THE 
RKE11 REG! ADORESS 
RKOG Feo "Fromese 
B06 PRIORITY LEVEL 
Peayecs TO °F 
NUMBER oF Lae ITERATIONS 
se 2 FACeeR MENTS 
DATA PATTERNS 
PHYSICAL MEMORY RODRESS ON DATA TRANSFERS 
WORD COUNT ON DATA TRANSFERS 
STALL TIME BETWEEN OPERATIONS 
IT JON, ITCH REGISTER OPTIONS ARE PROVIDED, FOR A 
tye Y OF PR Soham eon ING, RUNNING, AND REPORTING MODES. 
s Ergon mM Y occ REPORT WILL INCLUDE A TEST 
ike FES PE ToT ION RB RRENT IOUS OPERATIONS, GOOD AND Bad 
- Seer BAT A, aN APPL TCABLE Mevice REGISTER CONTENTS. 


2.0 HARDWARE REGUIREMENTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN PART 1 OF THE SUBSYSTEM 
VERIFICATION TESTS: 


fpr MFG. ONLY),20,34,35,40,45,50,70 OR POG 
CONSOLE TELET He | 

KWil-L OR KW11-P CLOCK 

RKO& UNIBUS CONTROLLER (KELL) 


1 70 & RKOG ORIVES 
1 TO 8 RKOG DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT) 


NOTE 


IF NEITHER KWll-L OR P_ CLOCK IS 
PROVIDED, THE TIMING TESTS IN SECTION 
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296 
203 
210 
211 9.2 WILL BE BYPASSED, AND A MESSAGE WILL 
BE INFORM THE OPERATOR. 
zi 
zie 3.0 PRELIMINARY PROGRAM REQUIREMENTS 
218 BEFORE RUNNING THE SUBSYSTEM VERIFICATION PROGRAM, THE RKE11 
215 CONTROLLER DIAGNOSTIC (MAT eM eS 6A THRU DZR&E AND EZREK) AND aeae 
220 DRIVE DIAGNOSTIC (MAINDEC-1 =bpeen THRU OZR6J) SHOULD FIRST BE RUN, TO 
ze RESOLVE BASIC, SOLID MOE STAdE S. 
ay 
s 
ze 4.0 GENERAL PROGRAM CONSIDERATIONS 
227 
228 5 
HF 4.1 SYSMAC 
231 THIS PROGRAM USES PORTIONS OF THE SYSMAC DIGGNOSTIC SYSTEM MACRO 
Bae PACKAGE. 
233 
234 
225 
zs 4.2 XxXDP 
228 THIS PROGRAM MAY BE LOADED UNDER XXDP. SUBSYSTEM TESTS 1-21 MAY BE 
229 RUN IN CHAIN OR DUMP MODE, BUT DUAL-ACCESS TEST 22 MAY ONLY BE RUN IN 
246 DUMP MODE. 
csi 
242 
543 
ets 4.2.1 CHAIN MODE 
BE THIS PROGRAM SIGNE N T HEN CHAINED 
5.5 UNDER XXOE Thu, peut Bf plat bc RE Be TPRSEED, RHO lis Aboeess 
Bue ate INTERRUPT vector yt DRIVES 
Dus Y ILL Pees "TESTED ya THE or 3 serve 6, IF THE 
z5¢ Re CONTA New The 
ee 
53 . 
53 4.2.2 DUMP MODE 
256 THE -PBogRan et RUN IN DUMP MODE, WITH OR WITHOUT DEFAULT 
357 PAR OQ MAY BE TESTED, BLY IF IT CONTAINS THE xxoP 
258 ante ole MUST REPLACE THE "XxXDP PACK WITh & FORMATTED 
253 K PRIOR 0 TEST? NG. MESSAGE WILL INFORM THE OPERATOR 





260 WHEN fas IS NECESSAR 
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261 
SE: 
263 
| eo 4.3 ACT/APT 
| T GRAM IS C WITH ACT/APT CONVENTIONS. SUBSYSTEM TESTS 
z= 1 PRBS eE BSA PNP By TABLE ITH, ine nose. ° 
26S 
270 
ech 4.3.1 AUTOMATIC MODE 
$3 
573 THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION. IN THIS MODE 
| B74 PARAMETERS REVERT TO DEFAULT VALUES, AND ALL DRIVES WHICH ARE PRESENT 
| 275 AND READY ARE TESTED. 
a 
| 273 4.3.2 DUMP MODE 
28! IN DUMP MODE, PARAMETERS MAY BE INPUT DEFAULTED, AND SUBSYSTEM 
| eee TESTS 1-21 OR DUAL-ACCESS DATA TEST 26 may BE RUN. 
| pee 
2 


4.3.3 APT ETABLE DEFINITIONS 


TABLE CESAALED ENtRteS, VIA THE RET UTILITY PRouReMS :) 


1. SOFTWARE ENVIRONMENT 
IF APT SCRIPT MODE 
= IF STANDALONE MODE 


2. Sv ieneghT MODE _BYTE 
BIT ETABLE DOES SIZING 


Syryryryrururengrenwurny 
BSR Pore Shee SR 


=] 
= 0 PROGRAM DOES SIZING 
BIT & = 1 SPOOL MESSAGES TO APT IF SCRIPT NODE 
3s = 6 DON’T SPOOL 
300 BITS 2) SUPPRESS CONSOLE OUTPUT 
| 301 = 6 ALLOW CONSOLE OUTPUT 
se BITS 4-0 NOT USED 
304 3. SWITCH 1 (SOFTWARE SWITCH, REGISTER) 
305 If ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET TO 1 SOFTWARE 
306 SHITCH REGISTER WILL BE USED, INSTEAD OF THE rBRDAERE CONSOLE 
207 SWITCH REGISTER. REGARDLESS OF WHICH ONE IS USED TS 
306 DEFINED IN SECTION 6. 2 ,(SHITCH REGISTER OPTIONS) MAY be USED BREN 
20$ RUNNING IN STANDALONE M 
Hit IN RET “SCRIPT MODE, HOMEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE 
312 
313 4. SWITCH 2 (USER SWITCH REGISTER) 
314 NOT USED 
Zé 5. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 


| 


| VERIF. : PART 1 MACYL1 27(1006) OS-OCT-7& 10:13 PAGE € 


& 


=DCREN-C - Paes RK 
Pll -76 


a) 
“=e 
he 


Ex 


tutte 
a er 


8 
00 ss 


gt 


saranatataty 


NOT USED 


&. INTERRUPT VECTOR 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 


7. BUS PRIORITY 
USED WHEN ENVIRONMENT MODE 8IT 


8. INTERRUPT VECTOR 2 
NOT USED 


DEFAULT = 


™ 
1] 
— 
' 
wn 


9. BUS PRIORITY 2 
NOT USED 


i0. BASE ADDRESS 


USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


DEVI 
a wren ENVIROMENT MODE BIT 7 = 1. EACH BIT SET TO 1 IN BITS 
Bo eeH Lf SELECT HE CORRESPONDING ORIVE TO BE TESTED. 


12. REMAINING ETABLE ENTRIES ARE NOT USED. 


4.4 DUAL-ACCESS 


THIS PROGRAM IS DESIGNED TO UTILIZE DUAL-ACCESS IN TEST 22 ONLY 
(DUAL-ACCESS DATA TEST - SEE SECTION 9.6). FOR THE PURPOSES OF ALL 
OTHER TESTS (1-21). THE OPERATOR MUST GUARANTEE THAT THERE IS NO 
INTERFERENCE FROM THE UNUSED PORT. IF FRILURES ARE ENCOUNTERED IN 

1-21 TO INTERFERENCE FROM THE OTHER POR THE OPERA TOR IS 
apy tees 0 SWITCH THAT PORT OFF-LINE AND RE-RUN Ofte TEST 


4.5 MEMORY MANAGEMENT 


THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT11C,D AND POP11/70 
FOR THE PURPOSES OF TESTS el AND 22 ONLY. IN’ THESE TESTS. NPR 
TRANSFERS BETWEEN THE RKO& AND ANY SPECIFIED OPHYSICAL MEMORY ABOVE THE 
PROGRAM, ARE PERFORMED, DURING READ/WRITE TESTING. (NOTE - TESTS 21 
BND 22’ ALSO SUPPORT 22-BIT ADDRESSING AND THE UNIGUS MAP, IF 
INSTALLED). IN ALL OTHER TESTS, MEMORY MANAGEMENT IS DISABLED. 


4.6 MEMORY PARITY CHECK 

IF THE MEMGn’ SPRITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, ALL 

TESTING IS DC. WITH PARITY CHECK ENABLED. PARITY ERRORS ARE 

REPORTED, AND TESTING IS ABORTED, UNLESS THE SYTE LABELED MENAST WAS 
“\ 
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37 
374 
375 7 
26 PREVIOUSLY LOADED WITH A NON-ZERO VALUE. 
78 
375 
eC 4.7 BAD SECTORS | 
362 BCCORDI ie A CONTROL SWITCH OPTION (SEE SECTION 8.2.4.2 ) THE Be 
363 SECTOR ON EACH DRIVE TO BE TESTED IS TYPED AT THE CONSOLE PRIO 
385 76 Terman ALL DATA ERRORS OCCURRING IN THE PROGRAM ARE MASKED OUT 
325 IF THEY OCCUR ON SECTORS DESIGNATED AS BAD (BY EITHER FACTORY OR 
55 SOFTWARE). 
369 1 
385 
a 4.8 EXECUTION TIME 
332 UTION TIME IS DEP PARAMETERS NPUT OPERATOR 
333 Couch 4 ‘ 5 ste BLL Tite "oe Tre ERaT THON ACOUNT) AND o 10 5 wiessee GFEE, UPON 
2 At eri N HO RST PASS) 4 AinUTES it R DRIVE. AA tOeseSUENT 
2 BuEEKTY WI Ficetzon TES, Pa53) resutres 21 MINUTES PER DRIVE. 
396 
398 
#00 5.0 PROGRAM LOADING 
ufe THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
~33 FROM ANY MEDIA SUPPORTED BY XXDP. 
ws 
405 
ue 
ug? 6.0 STARTING PROCEDURE 
405 
416 
fi &.1 STARTING ADDRESSES or. 
413 200 NORMAL STARTING ADDRESS OF TESTS 1-21 (PARAMETERS DEFAULTED) 
aie 204 SELECT OPERATING FARFIE TERS, , RKOE inTBUS ADDR. ANDO INTERRUPT 
418 220 DHBL -RCeESS DATA TEST 22 START ADDRESS 
ui 
4ui9 
4° 6.2 SWITCH REGISTER OPTIONS USED 
use THIS PROGRAM IS DESIGNED TO ALLOW THE USE OF THE HARDWARE SWITCH 
423 REGISTER IF PRESENT, OR THE SYSMAC- SUPPORTED SOFTWARE SITCH REGISTER 
424 (IF HARDWARE SWR IS NOT PRESENT OR IS SET ALL 
425 CASE THE FOLLOWING OPTIONS ARE INPLERENTED WHEN THE BPPROPRIATE ate 
426 ARE SET TO 1: 


428 BIT OPTION 
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15 105 ON Teele 

14 Retey? ERRde neporrs 

le REPOR spi EC ONLY, ON ERRORS 

11 INHIBIT ML a 

10 BELL ON ERROR 

09 LOOP ON ERROR 

08 Bo’ Ey RANDOM STALL BETWEEN OPERATIONS 

07 OO EXPLICIT SEEKS IN TESTS 1-12 

06 REPORT ONE E PER TRENEFER IN TESTS 17,21 
OS INHIBIT WRIT TEST 21 

04 INHIBIT WRITE CHECKS r. TEST 21 

03 te tT Rene Seon ele IN Test 2i 
de INHISIT yp WAR MPARES IN TEST 

Oi READ AFTER A TE CHECK ERROR IN T 


WRI est él 
00 REPORT ALL SOFTWARE COMPARE ERRORS IN TESTS 17,21 


NOTE 


FOR ADDITIONAL PROGRAM CONTROL OPTIONS 
SEE DESCRIPTION OF CONTROL SWITCH WORD 
(C$), SECTION 8.2.4.2. 


7.0 OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY (SEE SECTION S.0) 
LOAD A FORMATTED PACK ON EACH DRIVE TO BE TESTED. 
Boar G DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON 


LOAD THE DESIRED STARTING Set, it yada 6.1) 
SET SWITCHES IF DESIRED (ore SECTI 2) 
PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND. 


omc tre 


8.0 PROGRAM ACTION 


8.1 DESCRIPTION OF OPERATING PARAMETERS 
AFTER THE PROGRAM IS prenren, IT TYPES ITS cere Sn AS 


FOLLOWS: “DZREN-C_- RKGII/R SUBSYSTEM VERIFICATION: Pi 
FOLLOWED “LAST PHY HYS hen Ry - XXX * THE ITHER THE TEST 
BEGIN EXECUTION FAUL TERS. OR AN OPERATOR INTERACTIVE 
MODE IS ENTERED (SEE ISTaRTING ADDRESSES. SECTION 6. IN MOD 


1). 
OPERATING PARAMETERS Y BE LISTED OR'ALTERED BY VARIOUS MEANS. ALL 
PARAMETERS ARE TREATED Re OCTAL NUMBERS, AND THE PARAMETER LIST IS 


_ 


SEG 


0089 
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4g 

4B 

48? 

#8 SHARED AMONG THE TESTS. 

de CUfnE Ry SeLEctYon Se Gal ves, Peters Gries ag ie Tera 
o L 

4g vette. ALL OE SARERETERS AF ARE ENTERED ne BR AL NORBERS’ ane THE METER 
48 MNEMONICS SHOWN ARE THOSE USED BY THE PROGRAM. 

49% FC FIRST CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
137 RANGE OF CYLINDERS, FC=0-631, DEFAULT=0 

338 LC LAST CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
sc RANGE OF CYLINDERS, LC=0-632, DEFAULT=63¢ 

ce IC YLINDER INCREMENT VALUE IN TESTS WHICH STEP THROUGH 
es KYL NBER ANDRESEES, Peek tae RePaut fei 

59s FT FIRST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A 
Eze RANGE OF TRACKS, FT=0-2, DEFAULT=0 

Ee LT LAST TRACK A RESS IN TESTS WHICH ARE DONE OVER A RANGE 
503 OF TRACKS, LT=0-2, DEFAULT=2 

S11 IT TRACK INCREMENT VALUE IN TESTS WHICH ARE DONE OVER 4G 
sie RANGE OF TRACKS, IT=l-2, DEFAULT=1 

514 so FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
Eis NG TORS, US Y DRIVE WHICH HAS A 
Si 20-SECTOR FORMATTED CARTRIDGE. SO=0-23, DEFAULT=0 

Eig Sl LAST SECTOR ADDRESS IN TESTS WHICK ARE DONE OVER A 
Eis ANGE OF SECTORS, USED ON ANY DRIVE WHICH HAS A 
=eC 20-SECTOR FORMATTED CARTRIDGE. Si=0-23, DEFAULT=23 

E22 S2 FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
523 NGE OF ORS. USED ON ANY DRIVE WHICH HAS A 
=e) a2 SECTOR FORMATTED CARTRIDGE. S2=0-25, DEFAULT=0 

3 S3 LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
37 RAN CTORS, USED ON ANY DRIVE WHICH HAS A 
=e 22-SECTOR FORMATTED CARTRIDGE. $3=0-25, DEFAULT=25 

c 

E30 1S SECTOR INCREMENT VALUE IN TESTS WHICH ARE DONE OVER A 
31 RANGE OF SECTORS, IS=1-25, DEFAULT=1 

Je 

£33 PT DATA PATTERN SELECT WORD (SEE SECTION 8.2.4.1 FOR 
Pe DETAILS) PT=0-177777, DEFAULT=O 

53 cs CONTROL SWITCH WORD (SEE SECTION 8.2.4.2 FOR DETAILS) 
ee? €$=0-000070, DEFAULT=0 

e326 we 8©6©-~—S”*SWMORR.-s COUNT (NO. WORDS) USED IN DISK READ, WRITE, OR 
c40 WRITE CHECK SONRANDS IN DATA TEST 20 , We=0-177777, 
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DEFAULT=MAXIMUM BUFFER AVAILABLE, WC=0 IS INTERPRETED 
AS 65,536 WORDS 


MA BireLaS ed era (STARTING ADDRESS OF DATA 
BUFFER) ust ON ALL eT TRANSE ERS IN. Tests 21, 22. MA 
MAY TO ADDRE RUBUF (NOT 
OXCEEBING. TOAVAILAELE OUNEMOR Y oN OME SYSTEM). 
DEFAULT = ADDRESS OF RWBUF. 


ST NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL (DELAY) 
BETWEEN RKOE& COMMANDS 
SM MAXIMUM NUMBER OF UNIT STALL TIMES USED IN TEST 12 ONLY 


8.2 SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START) 


8.2.1 DRIVE SELECTION 


AFTER AN ADDRESS 204 START, THE PROGRAM INDICATES INPUT MODE BY TYPING 
"PARAMETER INPUT MODE”. THEN, THE RK611 REGISTER ADDRESS, RKO& VECTOR 
BODRES 2: AND RKO& PRIORITY Re OPENED FOR POSSIBLE MODIFICATION AS 


RKO& BUS ADR 177440 NEW=(TYPE NEW VALUE HERE) 
RKO& VEC ADR 210 NEW=(TYPE NEW VALUE HERE) 
RKO& PRIORITY S NEW=(TYPE NEW VALUE HERE) 


Pe THE PROGRAM TYPES THE NUMBER(S) OF THE CURRENT DRIVES UNDER TEST 
FOLLOWED BY A (*) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS. FOR 


PARAMETER INPUT MODE 


DRIVE (S)=0 1 
(INPUT, te’ BAY ” GOES HERE ) 


THE OPERATOR TYPES THE NEW a (SEPARATED BY COMMAS) PLUS <CR> OR 
SIMPLY <CR> TO LEAVE THEM UNCHANGED. IF HE ENTERS DRIVE NUMBERS 

THESE DRIVES ARE THEN CHECKED FOR VALID STATUS BY THE PROGRAM, AND ALL 
THOSE TYPED WHICH ARE ACCEPTABLE pit NOW es M2 RS BEF ORE. ate 


YPE DRIV 
WILL BE CHECKED ANDO TYPED, UNTIL THE OPERATOR 


oo 
MmD 
tuts) 


NUM AND 
FINALLY TYPES JUST <CR>. 


THOSE ON THE SUBSYSTEM WHICH ARE ON-LINE, READY, WRITE-ENABLED, AND 
LOADED WITH A CARTRIDGE OTHER THAN AN ALIGNMENT PACK. (THIS IS THE 


DRI THE 
TO THE DRIVE SELECTION ROUTINE (VIA <tC> AS DESCRIBED IN SECTIONS 





BRURREDRE SES 2 


iAP Ataris eal iat ialialialialialealeali arial a) 


Coe ed ee ed ed ee ey ey eee 


a 
Horurore 
O01 OL OO SOU Gore C0 


foro 
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8.2.2.5 AND 8.2.3.6) THE PROGRAM FIRST TYPES: 


TO TEST AL DRIVES TYPE “A"<CR>, ELSE <CR> 
* (CHARACTER GOES HERE) 


NEXT, THE DRIVES ARE LISTED AS SHOWN ABOVE, IF (A) IS TYP ALL 


AVAILABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS seLEETtoN OF 
ORIVES WILL BE LISTED. 


8.2.2 TEST SELECTION 
a OPERATOR A ge TYPES JUST <CR> IN RESPONSE TO THE DRIVE 


RE QU THE PRO ENTERS THE TEST INPUT ROUTINE. THE FOLLOWING 
TNS TROT IVE LINES ogre” TY 

L = LIST TESTS 

€ = CHAN 


= GE TESTS 
I = INPUT PARAMETERS AND RUN TESTS 
THEN, THE FOLLOWING REQUEST IS MADE : 


ENTER L,C I 
ENTER ARACTER” GOES HERE) 


THE OPERATOR TYPES THE DESIRED CHARACTER. PLUS <CR>. 


8.2.2.1 LIST TESTS, (L) 
Fr, fhe te TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST LIST, AS 


is ITERATIONS 
e 177777 
3 400 
4 es 
ETC. 
THE ITERATION NUMBER IS THE NUMBER OF aee THE vest a % RUN 
T ; PA i! yO 177777. F ott ZERO, THAT 
TEST WILL NOT BE RUN. ON THE FIRS Ie THROUGH ALL Este BRE © Ste 
WITH DEFAULT ITERATIONS. THE LIST og DEFAULT ITERATION NUMBERS BEGINS 
AT ADDRESS “DFLTST”, AND CAN BE ALTERED IN CORE 


WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYFE : 
OR I” AGAIN. 





“ENTER L,C, 
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| 
| 660 
£51 
e52 
lee 8.2.2.2 CHANGE TESTS, (C) 
am , ee. IF {C) 18 TYPED, THE PROGRAM THEN ASKS: "TO DEFAULT TESTS TYPE D<CR? 
| 6&6 ELse <CRo". fF JUST <CR> IS TYPED, THE PROGRAM SEQUENTIALLY OPENS 
| 682 EACH TEST FOR POSSIBLE aL TERATION OF THE ITERATION NUMBER. EACH TEST 
£55 1S OPENED AND A NEW LINE IS TYPED, GIVING THE TEST NO. AND ITER. NO. 
E53 IN OCTAL, FOLLOWED BY (#) ON THE SAME LINE. FOR EXAMPLE : 
Po eal TEST ITERATIONS 
es: 0 OQ * (INPUT, IF ANY, GOES HERE) 
BES THE OPERATOR THEN TYPES THE NEW VALUE PLUS <CR>, OR JUST <CR> TO LEAVE 
ges IT UNCHANGED. IF THE OPERATOR TYPES A NUMBER FOLLOWED BY 
BRE (EXCLAMATION POINT) THE NUMBER JUST ENTERED “wilt BE LOADED INTO. THE 
| §6? ITERATION TABLE FOR ALL REMAINING TESTS. AFTER ALL TESTS HAVE BEEN 
«gE OPENED, THE PROGRAM RETURNS TO TYPE : "ENTER L.C, OR I” AGAIN. 
| > ; 
| Ba 
ee 8.2.2.3 INPUT PARAMETERS AND RUN TESTS, (1) 
E74 IF (I) IS TYPED, THE PROGRAM ENTERS THE PARAMETER LIST ALTERATION 
575 ROUTINE, DESCRIBED IN SECTION 8.2.3, IN WHICH OPERATING PARAMETERS MAY 
78 BE INPUT, AND TESTING BEGUN.. 
eC 8.2.2.4 CONTROL Z (+Z) FUNCTION 
£82 IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM L OR C MODE, AND 
GE: RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL 2 (tZ) MAY BE TYPED. 
Ec é 
£86 ? #4 
ps” 8.2.2.5 CONTROL C (tC) FUNCTION 
525 IF THE OPERATOR WISHES TO TERMINATE L,C, OR I MODE, AND RETURN TO 
£20 REQUEST NEW DRIVES AND TESTS, CONTROL'C’(tC) MAY BE TYPED 
£32 3 
E33 
p23 8.2.3 PARAMETER LIST ALTERATION 
= THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES: 
Ese T = TYPE LIST 
es¢ d= OPEN C1et 
SA 
700 S = SET INDIVIDUAL PARAM. ; . 
701 ¢ R= RUN TESTS 
702 ENTER 1,0 
703 ‘ (EHARACTER BOS HERE) 
705 


THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


. VERIF. 
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8.2.3.1 TYPE LIST, (7) ee 

IF (7) IS TYPED, THE PROGRAM TYPES THE CURRENT PARAMETER LIST, AS 
FOLLOWS: 

FC 
Le 
ETC. 


oy ap Ae ‘ss! IS COMPLETED, THE PROGRAM RETURNS TO TYPE “ENTER 1,0,S, 


i 
XXXXKX 
XXXKKX 


8.2.3.2 OPEN LIST, (0) 


(0) I 2 ELBEL THEN ASKS: _— “TO perma! ALL PARAMETERS 

rie oy <CR>.” IF Pe ust <CR) IS TYPED, THE PROGRAM SEQUENTIALLY 

OPERATING PARAMETER IN THE LIST FOR ALTERATION (IN THE 

Maas: CHOU IN SECTION 8.1). EACH PARAMETER IS OPENED AND A NEW LINE 

£ TYPED, GIVING THE PARAMETER AND ITS CURRENT VALUE (IN OCTAL), 
SLLOWED BY (#) ON THE SAME LINE. FOR EXAMPLE: 


IC=s3 # (INPUT, IF ANY, GOES HERE) 
THE “ggrile THEN TYPES THE NEW VALUE PLUS A <CR> OR JUST <CR> TO 
LEAVE THAT PARAMETER UNCHANGED. AFTER ALL Pere TERS HAVE BEEN OPENED 
FOR ALTERATION, THE PROGRAM RETURNS TO TYPE “ENTER T,0,S, OR R” AGHIN. 


THE LIST OF DEFAULT PARAMETERS BEGINS AT ADDRESS “PROFLT™, AND CAN SE 
ALTERED IN CORE. 


8.2.3.3 SET INDIVIDUAL PARAMETER, (S) 
IF (§ TYPED, THE PROGRAM TYPES PROMPTER (>) ON THE NEXT LINE, 
BND lat?s FSR THE OPERATOR 3 SET THE VALUE OF Aiy TNDIVIOURL 
PARAMETER: 

aren T,0,S, ORR 

» (ENTER PARAMETER AND VALUE HERE) 


THE OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <CR> 
ENG THe PROGRAM GIVES THE PROMPTER (>) AGAIN AS IN THE FOLLOWING 
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T0_ TERMINATE INDIVIDUAL SETTING MgOE, J PATOR TYPES CONTROL 2 
(#2), AND THE PROGRAM RETURNS To TYPE wre , OR R” AGAIN. 


8.2.3.4 RUN TESTS, (R) 


IF THE OPERATOR TYPES (R), EXECUTION OF TESTS BEGINS, USING ALL THE 
CURRENT PARAMETERS. 


8.2.3.5 CONTROL Z (tZ) FUNCTION 


IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM T OR R MODE 
(RUNNING TESTS), ANO RETURN TO SELECT A NEW StOE® (T,0,S, OR FP), 
CONTROL 2 (f2) MAY BE TYPED. 


8.2.3.6 CONTROL C (¢C) FUNCTION 


IF THE OPERATOR WISHES TO TERMINATE T, 0 08 S MODE, OR STOP TEST- 
EXECUTION (R MODE), CONTROL C (tC) MAY BE TYPED, AND THE PROGRAM WILL 

SEL ection’ (SEE Te TION 1). AN 
TYPING CONTROL C CAUSES THE Sadakan TO HALT 
AFTER COMPLETING ANY pata’ TRANSFER). 


8.2.4 SPECIAL PARAMETER SPECIFICATIONS 


8.2.4.1 PT-DATA PATTERN SELECT WORD 


THE OPERATOR 1) her : Teen OF SIXTEEN BITS (6 OCT. OIGITS), 1 
SELECT A Bo THE eae LISTED IN SECTION $5 
THE _NO. y att Fi “IN Pre ORR SENOS | "T OF & PAT 
og 2 if FUE HIGH BIT OF PT (BIT 15) IS SET, THE USER W eee 


TO TYPE_UP TO SIXTEEN DATA WORDS WHICH WILL BE LOADED INTO T 
FOR PATTERN 15. THE PROGRAM TYPES: 


“SELECT USER DEFINED PATTERN 15” 
NEXT, EACH OF UP TO_16 WORDS ARE REQUESTED SY THE PROGRAM IN THE SAME 
MENNER IN - “wed a OPERATING PARAMETERS ARE OPENED FOR ALTERATION 


WORD ° = (OLD VALUE) # (NEW VALUE GOES HERE) 
of = (OLD VALUE) # (NEW VALUE GOES HERE) 
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CHD cgeeve gt uncsehaeo).""¥6 NEU CESS Vaan Ze Geos Fon Petremh is 


cPERR MAY TYPE of? iE ERNST EON POINT) AND THE PROGRAM WIL 
Nal HE REST 15 BUFFER WITH THE LAST WORD 
bet ret ED, fext te PROGRAM WILL CONTINUE, IN THE PROPER PARAMETER 
INPUT MODE (0 OR'S). 


8.2.4.2 CS- CONTROL SWITCH WORD 

IN ADDITION TO THE al ons PROVIDED BY THE SUITCH REGISTER (HARDWARE 
OR SOFT Cor ITCH WORD (CS) MAY BE SPECIFIED AMONG THE 
OPERATING PERANETERS. 70 MORON IDE THE FOLLOWING OPTIONS: 


BIT OPTION 


9S DROP 
55 «TYPE 
53 INHIBIT TIMING REPORTS IN T 
NCTE 

OTHER BITS UNUSED 


8.0 DESCRIPTION OF TESTS 


9.1 SEEK TESTS 

THIS GROUP OF TESTS PERFORMS A VARIETY OF POSITIONING OPERATIONS 

THROUGH THE EXF*UTION OF READ HEADER COMMANDS, IMPLIED SEEKS ARE DONE 

TO SELECTED CYLINDERS HEADER WORDS ARE READ AND CHECKED TO VERIFY 
7 THE CT CYLINDER WAS SSED STING BEGINS WITH SIMPLE 

OPERATIONS WHICH VERIFY CYLINDER SSING CAPABILITY PRO 

TO MORE INVOLVED ING WHICH STRESSES THe SERVO MECHANISM. AT THE 

COMPLETION EACH YS ND, STATUS INDICATIONS AND ERROR 

ITS ARE TO DETERMINE ‘THE SUCCESS OF THE OPERATION. 


8 CHECKED 
THROUGHOUT TESTING, SECTOR=FS, AND TRACK=FT. 


§.1.1 TEST 1 - RECALISRATE/SEEK TEST 
ag TEST aL ree A RECALIBRATE an” (POSITION TQ CYLINDER 0 


LLOWED BY SEEK TO CYLINDER LC. (AS IN ALL OF THE SEEK *eSté 
EPEL INE IS IMPLIED, VIA THE READ HEADER COMMAND). 


—_—- — - & 
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= 
| er 3.1.2 TEST 2 - SEEK/SEEK TEST 
57 THIS TEST WILL PERFORM A SEEK TO CYLINDER FC, FOLLOWED By A SEEK 79 
i £-§ THE NOEE Lie 
7 
e759 
go 
881 3.1.3 TEST 3 - CYLINDER ADORESSING TEST 
es THIS, TEST VERIFIES THE CYLINDER ap 800 (BY SEEKING es he we 
| Bes ate tn rtve Pe FADER 0. IN BINARY, CYLINDER 
| re ; s_athee y Rene phot tot 
~~ «-88s ooo900000 
ees 060000001 
e5¢ 000000019 
i eas . 
| Eds . 
css 100000009 
255 019900609 
cst 001990090 
; £97 
fet 4 
ee : 
300 oocoseco! 
$01 0909090900 
soe 
303 
604 
205 $.1.4 TEST 4 - CYLINDER ADDRESS CROSSTALK TEST 
307 THIS TEST PERFORMS SEEKS TO CYLINDERS WHOSE ADDRESSES ARE SUSCEPTISLE 
30¢ 9 8} CROSSTALK WITHIN THE CYLINDER ADDRESSING LOGIC. FIRST 8 SEEK 
30 TO CYLINDER O IS DONE, LOWED BY A SEEK TO 377 (OCTAL). THEN A SEEK 
| 310 TO O IS DONE AGAIN, ‘AoA SEEK TO 376 , ETC. THE CYLINDER ADDRESSES 
Zid SEQUENCE AS FOLLOWS: 
$13 000 900 000 
$14 O11 111 111 
sis 900 900 900 
Sie O11 111 118 
$17 000 600 000 
318 O11 111 101 
$15 000 000 000 
Seo O11 111 Ol! 
Sel . 
See 
Sez 
$24 
Sit 


tu 
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101 111 111 


Fist thee inbek D wae ae oe 


§.1.5 TEST S - INCREMENT/DECREMENT SEEK TEST 
oe ba og ws ARE DONE IN INCREMENTS OF IC CYLINDERS STARTING a 


G AT OR BEYOND LC. THEN, THE SEEKS ARE DONE I 
ReeRee, eeck 5 FC, IF FC IS CHOSEN > LC, THE SEEKS WILL PROCEED tN 
SITE DIREC ION. 


§.1.6 TEST 6 - OSCILLATING SEEK TEST 
uy ts = 4 a 8 aEEKe TO ae de FC, WHICH ts kT ~_. rn ane" 


NTED BY IC = 
EESAOD 818 Seek Gree T0EC BE ts TNCREPENTED ABP, A, Seer 
REVERSE IS ‘DONE DECREMENTING NC UNTIL NC EXCEEDS FC. 


9.1.7 TEST 7 - CONVERGING/DIVERGING SEEK TEST 
THIS TEST PERFORMS SEEKS WHICH EXERCISE deg ym Mg 


INITIALLY, NCYL1 = FC AND NCYLe = LC. A SEEK IS DONE TO NCYL 
THEN TO N¢YL2, THEN, NCYLI IS INCREMENTED BY IC IN THE DIRES TION OF 
Lc NCYL tNCREME C_IN THE DIRECTION OF FC, AND SEEK 
6 YL1 AND NCYL2 AGAIN. TH KING IS CONTINUED WITH 
NCREMENTED VBLUES OF 1 TIL NCYL1 EXCEEDS LC AND 


I ME NCYL vy NCYLe, UN 
NCYLE EXCEEDS FC. (NOTE: FC > LC IS PERMISSIBLE.) THIS TEST CAUSES 
SEEKING TO CONVERGING AND THEN DIVERGING CYLINDER VALUES. 


§.1.8 TEST 10 - PSEUDO-RANDOM SEEK TEST 


THIS TEST PERFORMS A SEEK TO A PRELEO-ROU.Y CHOSEN CYLINDER WHICH 
IS WITHIN THE RANGE (0-632). 


- 9.1.9 TEST il - MAXIMUM VELOCITY REVERSAL SEEK TEST 


THIS Tha" gt A SEEK ren CYLINDER 0 TO CYLINDER i a AND 
BACK TO CYLINDER O. ee PARTICULAR SEEK CAUSES THE HEADS TO 
ACCELERATE TO ge 4s: VELOCI AND. THEN N IMMEDIATELY DECELERATE, WITH 

NO _APPRECIABLE PLATEAU OF LORSTANT VELOCITY. THIS OPERATION {NOUCES 
HEATING IN THE SERVO MECHANISM. 
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9.1.10 TEST 12 - MECHANICAL VIBRATION SEEK TEST 


THIS TEST PERE ORNS GEOMETRICALLY INCREASING SEEKS WITH GEOMETRICALLY 
DECREASING STALL TIME BETWEEN OPERATIONS WITH INTENT TO INDUCE VARYING 
VIBRATIONAL diodes UPON THE GRIVE. THE TEST BEGINS WITH LC = 1 

ETHE N'O M3 Ug rageORe) )T gute 38 a T 1S DIVIDED BY BY seek AR Pee bone 
és fe 8 See "BONE BE THEEA 8 


GAIN, sBcGEC) MES, 

BRacese Is SEEKS ane FOR oy VAL UES ND’ UNTIL LC 

Me Pepe CYL 400 (OCT). THEN, THE WHOLE process IS REVERSED, WITH St 
BEING DOUBLED AND LC DIVIDED a 2, UNTIL LC BECOMES « 


eas 


9.2 TIMING TESTS 


THIS GROUP OF TESTS PERFORMS TIMING MEASUREMENTS OF BASIC ORIVE 
OPERATIONS - SPINOLE ROTATION AND SEEKING. FOR EACH TEST THE FUNCTION 
yh NG MEASURED IS TIMED Ay A GIVEN ae, OF OCCURENCES, AND THE 

MINIMUM, MAXIMUM, AND AVERAGE VALUES ARE TYPED ALONG WITH THE NUMBER 
OF OPERATIONS Piel EXCEEDED THE LIMITS SPECIFIED IN THE RKO& DISK 
BRIVE SPECIFICATI 


NOTE- FOR SO HZ OPERATION, PATCH 1 INTO LOCATION 165 (LABELED H2:). 


9.2.1 TEST 13 - MAXIMUM ROTATIONAL LATENCY MEASUREMENT 

THIS TEST MEASURES THE INTERVAL OF TIME BETWEEN © INDEX MARKS IN & 
SINGLE OISK ROTATION. THE SPECIFIED MAXIMUM ROTA | LATENCY = 25 
MILLI-SEC + OR - 2.5%. THIS MEASUREMENT IS MADE 128 TIMES. 

SAMPLE PRINTOUT -- 


ROTATIONAL TIMES ; 


Atty = 24086 US 103 OF 128 BELOW SPEC’D MIN OF 24375 US 
MAX = eSOES US QO OF 126 ABOVE SPEC’D MAX OF eS625 US 
AVG = c4285 US 


9.2.2 TEST 14 - ONE CYLINDER SEEK TIME MEASUREMENT 


THIS TEST MEASURES THE TIME REQUIRED TO SEEK BETWEEN 2 ADJACENT 
CYLINDERS, BOTH IN THE FORWARD AND REVERSE DIRECTIONS. SEEKS ARE DONE 

0,1, 31,632 AND THEN TO 631,630 1,0 AND THE RESULTS ARE 
TYPES ‘FOR “eBay DIRECTION. THE deere iEA® ant CYL SEEK TIME I5< § 


MILLI-SEC. 
SAMPLE PRINTOUT -- 
ONE CYL SEEK TIMES : 


SEG cois 


Oe 
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1039 

1046 

1041 

1042 ##FORWARD DIRECTION## 

1043 MIN = 6332 US 

Toa MAX = 6749 US 0 OF 410 ABOVE SPEC’D MAX OF 8000 US 

1O4s AVG = 65 

O4é #eREVERSE DIRECTION#® 

os? MIN = 6314 US 

Sue MAX = 6749 US 0 OF 410 ABOVE SPEC’D MAX OF e000 US 

548 AVG = 6532 US 


8 


© 
uw 
- 


a 


9.2.3 TEST 1S - AVERAGE SEEK TIME MEASUREMENT 


THIS TEST MEASURES THE TRUE AVERAGE SEEK TIME IN BOTH THE FORWARD AND 
REVERSE DIRECTIONS. THE AVERAGE TIME IS CALCULATED FROM THE FOLLOWING 


FORMULA : 
T AVG = ESS IRE bat oh ta a ae - #7410(1) (2) 3/0410) (410) 
2.9 TX = THE MEASURED vie TO SEEK X CYLINDERS. FORWARD AND REVERSE 
TIMES ASURED AND TYPED, SEPARATELY. THE AVERAGE SEEK TIME IS 
SPECIFIED TO BE < 38 MILLI-SEC. 


SAMPLE PRINTOUT -- 


AVERAGE SEEK TIMES : 

HEE ORWARD DIRECTION# 

AVG = 36673 US SPEC’ D MAX IS 38000 US 
£#REVERSE DIRECTION 

AVG = 35823 US SPEC? D MAX IS 38000 US 


in 


phe ssid sot at 


ir 


he) 


$.2.4% TEST 16 - MAXIMUM SEEK TIME MEASUREMENT 

nes TEST MEASURES THE TIME REQUIRED TO SEEK FROM CYL O TO CYL §32 
OCT #10 DEC.). THIS TIME REPRESENTS THE MAXIMUM SEEK TIME, AND IT 
IS ne ASURED 128 TIMES IN EACH DIRECTION. THE SPECIFIED MAXIMUM SEEK 
TIME TS < 75 MILLI-SEC. 

SAMPLE PRINTOUT -- 


MAXIMUM SEEK TIMES : 


Ooo 
SIN 
Bot FY 


LSE RE 


ts 


&3 *#FORWARD DIRECTION## 
oy MIN = 68950 US 
| es an = 69286 US O OF 128 ABOVE SPEC’D MAX OF 75000 US 
Gs 


coco 
“NO 


69lee U 
#*REVERSE DIRECTION## 
MIN = 70194 U 
MAX = 70667 US 0 OF 128 ABOVE SPEC’D MAX OF 75000 US 
AVG = 70407 US 


RPP SS PPS PS ro TSP T rr rrr or rr error reo ae 
ow -ChO 


home | oe) ome] Ge) oe | oe) oe) oe) 


eee 
Ooo 
wu0.0u0 
ire 


9.3 TEST 17 - SECTOR ADDRESSING TEST 
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1066 
1097 

1038 N THIS TEST, ALL SECTORS OF FC, FT PRE WRITTEN, EACH WITH aco ee ES) 
1106 ati A Atte tae Sone” Oru hash By ae READ END’ 0 bps BRGY cBRBABE 
1152 
1103 
1194 
its 9.4 TEST 20 - TRACK ADDRESSING TEST 

é 
1107 IN THIS TEST fg seCTOR FS. OF CYL, FC Fc 1s WRITTEN WITH 25 te, are ae 
1}RE ctx REC Kaci? SECTOR a Bene’ To TO wei FY te Reriess’ ny Eats iE 
1119 SECTORS IS RE-WRITTEN, AND AFTE H WRITE ALL OF yg seni SEcTOnE 
121 are WRITE-CHECKED TO DETECT TRACK F EDRESeING PROBLEMS. 
ee 
itis 9.5 TEST 21 - READ/WRITE DATA TEST 
1117 THE READ/WRITE DATA TEST HAS 2 DIFFERENT VERSIONS, DEPENDING ON THE 
its VALUE OF THE DATA PATTERN PARAMETER (PT). 
i1e0 FOR PT=0: 
oe 
lee THI TEST Is, THE ICK VER T DATA TEST RUN 
i155 718 TEBle saute TER INPUT CHOTCE 08 ROORESS "ee START. “IN ute 
i124 Tes! THE ENTIRE PACK Is. TEST WiTH if SINGL PATTERN. THIS 
1125 TTERN IS COMPRISED OF THE OAT A PATTERNS ob ise A OICH REPEATS EVERY 
1126 ese (EL) WORDS. EACH TRACK IS WRITTEN IN 4 SEGHEATS FOLLOWED BY A 
1127 WRITE-CHECK, READ, AND SOFTWARE COMPARE. GMENTS ARE & SECTORS 
ii3e EACH, WHICH’ MEANS tua TRACK SPIRALING FecuRe” 3h THE LAST SEGMENT 
1123 WRITTEN ON EACH TRACK 
113] FOR PT NOT=0: 
1133 THIS T I PERFORMS READ/WRITE FUNCTIONS ON THE ENTIRE RANGE OF 
1134 oe eNDE : (FC-LC), TRACKS (FT-LT), AND SECTORS (FS-LS) SPECIFIED. AT 
1135 EAR CEE IFIES SECTOR WC WORDS OF THE CURRENT REPEATING DATA PATTERN 
1136 ARE AND THEN WRI PS CGECKED LOWED BY A READ AND SOFTWARE 
113? COMPARE. THIS IS DONE FOR ALL THE SPECFIEID SECTORS ON ALL THE TRACKS 
1138 USING THE orc ton INCREMENT IS, AND TRACK INCREMENT IT. AND THEN IT IS 
1139 REPEATED USING EACH OF THE OTHER DATA PATTERNS CHOSEN IN PARAMETER PT 
1140 THEN OF THE ABOVE OPERATIONS ARE REPEATED AT EACH OF THE 
1141 REMAINING CYLINDERS, IN THE SPECIFIED RANGE, USING THE CYLINDER 
i142 INC T IC. NOTE THAT fs Must BE gghiOSen age = tS. AND FT T Must BE < 
1143 = {T HOWEVER, Y BE DFE CYLINDER 
1144 SR oRE S WILL BE’ DECREFEN ED by te RNS TEADS OF F bent Ge HE 10 ‘SeTAIN 
il4s EACH NEW CYLINDER ADDRESS 
1146 

1147 
114e NOTE: 

1145 

1150 THE PACK ADDRESS LIMITS 
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(FT,LT,FS,LS.FC,LC) REFER TO THE RANGE 
oF BATA eee TOR RS’ sft WHICH TRANSFERS MAY 
BEGIN, USING SPECIFIED WORD COUNT 
we. cis LABE ENOUGH HOWE ver, I 
ThinctEns MAY EXTEND BEYOND TH ABove 


§.5.1 DATA PATTERNS 


EACH DATA PATTERN IS COMPRISED OF i6 cote PATTERNS ARE REPEATED AS 

2 coe TO OBTAIN THE DESIRED WORD COUNT ON THE WRITE DATA At + tae 
THE MA DCT RUM Feb DAB 5 He WORD ar he S ee ae 2 BY THE AMOUN 

AVAILABLE ND OF THE PROGRAM, AND COULD ge 


bARGE Aa. 6B 2o8 cDEE) “HORE, DATA SPIRALING AND TRACK SWITCHING a 


THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS (IN OCTAL), 
WITH NOTABLE FEATURES DESCRIBED: 











poo 
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1174 
Lee 
1177 0 1 z 
1178 MAXTMUM 
| 1178 HIGH-LOW HIGH FREQUENCY LOW FREQUENCY PRECOMPENSATI 
1180 FREQUENCY MIX PHASE MIX PHASE MIX PHASE MIX 
lige 
1183 7 ooocoo os2s25 133333 
1183 177777 96 00 ose5e5 CEEEEE 
11 177777 0000 052525 isssss 
1186 os2s2 177777 15256 iSSsss 
11g? Obe¢ 7777 1252 133 
il 0525 7777 125252 OBEEEE 
1168 177777 090000 052525 ObEEEE 
1190 hee? og0a08 952525 isssss 
1 Jr97 52525 1777 125252 155555 
1192 s2525 177777 125252 133332 
1193 177777 099909 052525 133333 
119 os2525 177 125252 133333 
1195 177252 900000 52525 133333 
| Y1S6 77252 777 125252 133333 
| 1197 172765 ooooon os2525 133333 
1138 172765 177777 125252 133333 
i 
/ 1200 
1201 3 = 6 ? 
| ede TATING ROTATING ALL ALL 
| e203 BOUNDARY PULSE CELL PULSE ZEROS ONES 
1204 PRECOMPENSATION PRECOMPENSATION 
we By Caretta ay ae ce ge icine tir erg Soi Somme mite ga Siok AN op ana ve: 
1207 121105 026455 ooocao 177777 
1208 150442 113226 090000 177777 
1208 064221 O45513 099000 177777 
1210 132110 122645 oo0000 
| Jet} 955044 151322 009000 177777 
Beit d2b422 064551 006 27 
| els 013211 132264 090009 177777 
| 1e14 105504 055132 990000 77 
Leis o42642 026455 oo0008 177777 
| IBLE 021321 113226 090000 177777 
| lel? 110550 045513 000000 27777 
1218 044264 122645 000000 177777 
12i8 022132 151322 oocc00 177777 
1220 011055 064551 090000 177777 
1Z21 104426 132264 000000 127777 
L222 042213 055132 999000 177777 








LOe2 | 
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1269 177777 164616 


1223 
1224 
Lees 
1 p By 10 1 
1227 SHIFTED 1 SHIFTED O ALTERNATING ALTERNATING 
1828 IN FIELD IN FIELD 0-1 1-0 
129 OF O'S = OF I'S 
MEM 8 oe eel er i re. Saath. Sete Sa eeuae 
lea] 
le32 000001 177776 052525 125252 
1233 oocod2 = -177775 0525 125252 
1234 ooogo4 == 177773 052505 125250 
1235 000010 17776? 0s250 1e5e5¢ 
1236 gooode0 = 177757 05255 125252 
1837 p9004 177737 052505 125250 

1638 10 177677 052505 125056 

| 1238 000200 177877 052525 125e52 

| 189 95046 177327 O5e5e5 125252 
124] 0100 17677 05e5¢ 1e5e5¢ 
le4e oce000 = 175777 052505 125250 
1243 gOo4000 = 173777 052525 125252 , 
1344 010000 167777 052505 125250 
é 20000 157777 052506 125852 

| 1646 040000 137777 052505 165060 

| igH2 100000 = 077777 os2525 1e5252 

| 163 
1250 12 13 14 15 

| 4251 SHIFTING COMPOSITE  PSEUDO- USER- 

| ese O°S AND 1°S ROTATING RANDOM DEFINED 

| wee le Pile ees SD oe Pony. ale ee gt ten ern.) ee ae a ee ee: ee 
1254 900001 072307 

| 155e 00003 135143 

| 1256 000007 156461 

7 000017 167230 

| 15e 050037 073514 

| 1358 0077 035646 
1860 000177 016723 
1261 000377 107351 

| te 0777 143564 

| 163 001777 061672 
1264 003777 030735 

| 1265 007777 114356 

| 1266 017777 46167 

| 1267 037777 123073 

| 1268 077777 151453 

| 
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9.6 TEST 22 - DUAL-ACCESS DATA TEST 
Aho INDEPENDENTLY” PERPORMING Bvhanic™ baTa OPERATIONS ON Tee See 
THROUGH 2 OIFFERENT CONTROL 
Nee THE ofdeR fests. ih 


BRIVE! 
STARTING ADDRESS = 220 AND IT IS NEVER RUN 
RUTOMA MATIC MANNER. ALSO, BOTH PORTS MUST BE SWITCHED ON-LINE, AT 


THIS TEST IS_A MODIFIED VERSION OF READ/WRITE DATA TEST 21, IN WHICH A 
DRIVE RELEASE COMMAND IS DONE IMMEDIATELY we COMPLETION OF READ 
WRITE OPERATIONS AT A PARTICULAR PACK ADDRESS. IN RESPECTS, 

ESTS el AR ICAL, AS FAR AS EACH PROCESSOR. is. CONCERNED: 

THIS jane THAT THE TEST PARAMETERS (ADDRESS LIMITS A_ PA 

ETC.) CAN BE DEFINED DIFFERENTLY FOR EACH PROCESSOR. IF DIFFERENT 
bree rey ae oy ae FOR EXAMPLE, THE DA WHICH APPEARS ON THE 


ME OF FAILURE OM WHICH IT 
ORIGINATED. LIKEWISE, THE WORD COUNT MAY BE CHOSEN APPROPRIATELY 
SMAL soit a =1) TC CAUSE’ THE GREATEST AMOUNT OF CONTENTION FOR THE USE OF 


NOTE THAT IF BOTH PROCESSORS ARE PERFORMING TRANSFERS WITH DIFFERENT 
DATA, AT THE SAME PACK ADDRESS. INTERFERENCE MAY OCCUR, IF ONE 
CONTROLLER SHOULD LOSE THE DRIVE PREMATURELY TO REPORT AN ERROR. 


WHEN THE TEST IS STARTED (AT ADDRESS a git INPUT MODE IS 


.1) LL RKO& UNIBUS 
VECTOR. THE TEST NUMBER IS AUTOMATICALLY SET 
TYPES “ENTER T,0,5, OR R™ AS DESCRIBED IN SECT] é 
POINT, THE OPERATION OF THE PROGRAM IS THE SAME AS PREVIOUSLY 
DESCRIBED IN CONJUNCTION WITH THE OTHER TESTS. HOWEVER, ONLY TEST 22 
MAY BE RUN, AND ONLY ON THE SINGLE SELECTED DRIVE. 
MUST INDEPENDENTLY LOAD AND START THE TEST -IN 
SELECT INPUT PARAMETERS INDEPENDENTLY, THES DRIVE NUMBER TYPED AT 
EACH PROCESSOR CONSOLE MUST BE THE SAME, IN ORDER TO PERF ORM THE TESTS 
ON THE SAME ORIVE, or ful TANEOUSLY 


woz 
4 


10.0 ERROR REPORTING 


10.1 COMMON ERRORS 


THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
TYPEOUTS FROM THE SUBSYSTEM VERIFICATION antec THE ERRORS ARE 
SELF-EXPLANATORY. 


1. UNIBUS PARITY ERROR 
eo &- NON-EXISTANT MEMORY ERROR 
3. NON-EXISTANT DRIVE ERROR 


SEG 0025 
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4. UNIT FIELD ERROR 
5S. SUBSYSTEM TEE OUT 
g. RC N PARITY ERROR 
iS PETE TED PARITY ERROR 
5. SPEED” Loss 
i0. ILLEGAL FUNCTION ERROR 
11. PROGRAMMING ERROR 
12. NON-EXECUTABLE FUNCTION ERROR 
13. DRIVE TYPE ERROR 
14. =ORMAT ERROR 
15. WRITE LOCK ERROR 
16. DRIVE UNSAFE ERROR 
17. SEEK INCOMPLETE E 
18. CYLINDER OVERFLOW . 
19. ILLEGAL CYLINDER abbRees ERROR » 
20. DRIVE OFF TRACK v 
21. DRIVE TIMING ERROR 
22. DATA LATE ERROR 
23. CONTROLLER TIMEOUT 
24. OPERATION INCOMPLETE” ERROR 
2s. ERROR 
26. DATA RHECK ERROR 
27. WRITE CHECK ERROR a 
28. DATA MISC E y 


: A MISCOMPAR 
29. NO DRIVE RESPONSE - UFE AND NXD 
30. DRIVE ERROR WILL NOT CLEAR 
31. DRIVE STATUS CHANGE WILL 


‘ ERR 4 
37. ERROR IN RECALIBRATE FOR RF EQVERY 
38. ee CONTROLLER DID NOT CLEAR ERROR 
33. NO ATTEN TiO +o eon SUMMARY REGISTER 
40. UNBOLIELTED A TTENT 
41. UNEX Pest ED DATA TYPE ERROR 
42. ATTENTION DID NOT RESET WITH CLEAR 
43. SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
44. DATA LATE WHEN UNLOADING HEADER 
45. CONTROLLER ote an DRIVER SERVICING . 
46. RETRY UNSUCCESSFU 
47. BAD SECTOR ERROR oN SECTOR NOT LISTED BAD 


10.2 ERROR HANDLING 
ERRORS THERETED BY THE PROGRAM CONSIST OF a FAILURES pe iN 


us 
siiiaiaiigiala fs: 
% 


oS Dat 


ee eee ee ee ee ed ee ed ee ed ee ee ee ee ed 
C 
ak a 
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ROING C OF REGISTER CONTENTS IN. OCTAL, 8 
CERNE, Bor SPeR Sark’ as eoestece pO Cli wesistees: 
BRE FEPORTED ON 8 GIVEN ERROR. _IN THE CASE OF A hisconPome ERRORS 
FOR INSTANCE, THE WORD NUMBER, GOOD DATE WORD br ‘oat WORD, PHYSICAL 
MEMORY ADDRESS, VIRTUAL ADDRESS, AND ME MANAGEMENT’ REGISTER 
CONTENTS (IF. PRESENT) ARE REPORTED. OTHER ERROR REPORTS MAY ZONE:37 
OF A SINGLE DESCRIPTIVE LINE. 

ANY OF THE COMMON ERRORS ARE RETRIED SEVERAL TIMES, AND IF THEY 


MANY 
PERSIST, AN mI IS MADE. DATA ERRORS AND MISCOMPARES ARE REPORTED, 
AND THE P! TING. 


10.3 ERROR PRINTOUT EXAMPLES 
EXAMPLE 1: 
#% NON-EXISTANT DRIVE ERROR 
TEST 


VIOUS COMMAND : 
erie CMND CYLNOR TRACK SECTOR WO CNT 
0 eo0o ooccce 900000 900000 


HI BA LO 
CURRENT COMMAND : Z 
ERR PC pattie CMND.  CYLNDR TRACK SECTOR WD CNT 
037576 Ooo1es oocece 000000 00000 dcccc0 
HI BR LO BA 
000 000000 


molt REGISTERS: 

RKCS1 RKCS2 RKDC RKOA RKWCR RKBA RKASOF 
1403e4 010:00 o00000 c00000 000000 000000 000400 
REMAINING REGISTERS NOT VALID 


EXAMPLE 2: 
## DATA MISCOMPARE 
TEST 21 


PREVIOUS COMMAND : 
V CMND CYLNOR TRACK SECTOR WO CNT 
a a eh oooodo 900000 000000 036000 


ooc000 974000 


CURRENT COMMAND : 
ERR PC DRIVE OMND CYLNOR TRACK SECTOR WO CNT 


SE 





oe FAS 
* 9627 








q 


PASS 


e+e 


di 


é 
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saa a “eh 00012: c00000 000000 900000 C36000 
PACK —_s OF ae all S) : 

CYLNOR TRACK 

static 

Ws G000 BAD HI PHY LO PHY VRT AD KIPARE 


1 4 pos 074000 154000 000600 
leSeSe 000000 O74002e i5400e pens 


z 


penta 


e 


=+ 

= 
o-oo 
fue-© 
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| 3%} 
ise 
is | 
465 
isés 
1466 
1467 
isee 
14g§ . APPENDIX & 
i47] SAMPLE ADORESS 200 DEFAULT RUN 
i473 
i 
1475 FOLLOWING PR one WAS THE RESULT OF RUNNING SUBSYSTEM 
a9 i TE eROGRAM  CQUICK-VERTF Ege gene a hope AL messaces 
lars REPEGRING HERE WERE OUTPUTS - NO OPERATOR INPUTS ARE PROVIDED ON AN 
1478 ADDRESS 200 RUN. 
Bs 
ise OZREM-C - RK&LL/RKDG SUBSYSTEM VERIFICATION : PART 1 
1485 
1385 LAST PHYS MEM ADR = 377776 
i487 DRIVE 1 NON-EXISTENT 
1468 DRIVE 2 NON-EXISTENT 
489 DRIVE 3 NON ist NT 
1456 DRIVE 4 NON-EXISTENT 
isi DRIVE 5 NON-EXISTENT 
iS DRIVE : NON-EXISTENT 
is DRIVE 7 NON-EXISTENT 
123 ORIVE(S) = 0 
1467 TESTING DRIVE O 
i4e ORIVE SER. NO. @ 
1495 CART. SER. NO. 334 
155i ROTATIONAL TIMES : 
1552 MIN = 24153 US 99 OF 128 BELOW SPEC’S MIN OF 24375 US 
153 MAX = 25125 US 0 OF 1le8 ABOVE SPEC’D MAX OF 25625 US 
LEDS AVG = 24374 US : 
1506 ONE CYL SEEK TIMES 
1507 SF ORWARD DIRECTIONS® 
150¢ MIN = 6322 US 
1608 MAX = 6685 US 0 OF 410 ABOVE SPEC’D MAX OF 8000 US 
1516 AVG = 6518 U 
161] ##REVERSE DIRECTIONS 
1512 MIN = 6332 US 
1613 MAX = 6713 US 0 OF 410 ABOVE SPEC’D MAX OF 8000 US 
iE: avG = 6513 US 
iSi€ AVERAGE SEEK TIMES : 





EQ3 


<1) eT oe An A OE SUBS'S. VERIF. : PART | MACY11 27(1006) OS-OCT-76 10:13 PAGE 3) SEG 3030 
76 vd 


o- 
curvervest 


Coed mee ed Sed ed ee ee ded ed ed ed 
TES § 
. . % t -C).00D~38 


WG on ae At ee + 
AVG = 35 SPEC" MAK 7S 36000 US 


pescveRee GrngcTog ce DO MAX IS 38000 US 


ree Bleeciicnes 


E3: = 69150 3 0 OF 128 ABOVE SPEC’D MAX OF 75000 us 
20 oe CTION#® 

e32 = seas 43 0 OF 128 ABOVE SPEC’D MAX OF 75000 us 
232: ve = 70379 US 

[é3s END PASS @ 
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APPENDIX B 
SAMPLE ADDRESS 204 RUN 


THE 
ad PART 1, ON A SINGLE (DRIVE 0), WITH PRR 
OR SPECIFIED NUMBERS OF TIMES 


BTL arta AoE PL Bs tice 
cee SYereh 3" RU RUN Fok 2 ReROBRAM A BReseS USING PAR ANETER VRcues ae BY 


Uoho SOEnt ieee AAecHP Es Ron “GEsteOaetey eater ness On THREES 


DZREM-C - RK611/RKOE SUBSYSTEM VERIFICATION : PART 1 


FOLLOWING PRINTOUT WAS THE Re RUNNI See e x ae 
WITH 


LAST PHYS MEM ADR = 377776 


PARAMETER INPUT MODE 


We ADR = 177440 NEW = 
RKO6 VEC ADR = 210 NEW = 
RKO& PRIORITY = S NEW = 
DRIVE 1 NON-EXISTENT 
DRIVE 3 NON-EXISTENT 
DRIVE 3 NON-EXISTENT 
DRIVE 4 NON-EXISTENT 
DRIVE S NON-EXISTENT 
DRIVE 8 NON-EXISTENT 
DRIVE 7 NON-EXISTENT 
DRIVE(S) = 0 


~ 

L = LIST TESTS: 

¢ = CHANGE TESTS 

I = INPUT PARAMETERS AND RUN TESTS 
E 

- 


TO DEFAULT TESTS TYPE D<CR>, ELSE <CR> 





A 


©: 


; 


COVUIVUFTUIIOCFTUFTCFV UY 
Bi DEAE OG 


== 8 Be Be ee Bs Be Oe ew Be he Be 
OOO OOE 


Riceeeeerer rarer 


08 Be 8 Be Ob 8 Be ee Be 
*-C).00 OUTS torue-t 


N=] L-DzREN=C 





. VERIF. : 


GO3 


Paey | MACY11 27(1006) 
° 
TEST ITERATIONS 
] 10 # Q 
2 200 # 2 
5 OSE 
: 338 
& 2e#9 
7 2#4 
10 400 # 
+3 500 # 
1 ~ 
13 1 #0 
14 lee 
1s iis 
16 1 # 
17 10 #0 
20 10 # 0 
2l 1# 
ENTER L, C, OR I 
#L 
_ i 
2 2 
3 0 
4 0 
5 ‘Q 
€ 0 
7 ~ 
10 0 
ll 0 
le Q 
13 0 
14 2 
1S 0 
16 0 
17 0 
20 0 
21 1 
ENTER L, C, OR I 
* I 
T = TYPE PARAMETER LIST 
0 = OPEN PARAMETER LIST 
Ss arn PNOEYTDURL PARAM 
R = RUN TESTS 
ENTER T, 0, S, ORR 
#0 


OS-OCT-76 10:13 PAGE 33 
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1692 


Pet ee Set et oe ont ee ed ed ed 
SSS BORA DE 
cone Webi bet tit ta 


eo a ae e ee ee + 
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TO DEFAULT ALL PARAMETERS TYPE D<CR>, ELSE «CR 


0 # 
SM=1000 # 
ENTER T, 0, S, ORR 


S 

SM=1000 

ENTER T, 0, S, ORR 

ys NO. OF PASSES (1-77777) : 


TESTING DRIVE 0 
PRIVE sen NO. : 

T. SER. NO. 334 
ONE CYL SEEK TIMES : 
#*FORWARD DIRECTION#+# 


ay = 
= Bei t: O OF 410 ABOVE SPEC’D MAX OF 8000 US 


SEG 0033 


c-- --- -—-- <---> + 
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DZREMC.P1L © OS -OCT-7E 10:03 
1704 
1705 
1708 
1707 AVG = 6502 US 
1708 nly = 630) ( DIRECTION#® 
42} = O OF 410 ABOVE SPEC’D max OF 8000 US 
it man S 
1713 ONE CYL SEEK TIMES : 
1714 #4FORWARD DIRECTION## 
1715 aN = 6332 US : 3 
vie = 6695 US 0 OF 410 ABOVE SPEC'D MAX OF S000 US 
1518 fe oYRECTIONes 
| 17 = be Ue O OF 410 ABOVE SPEC’D max OF g000 US 
172! we : ees us 
1722 
i723 ake k anit 
1724 RECT an + 
| 172s MIN'= ace ik 
1726 MAX = 6691 US 0 OF 410 ABOVE SPEC’D MAX OF 8000 US 
| 17287 AVG = 6504 U 
1728 ##REVERSE DIRECTION#® 
| 17289 MIN = 6301 US ‘ 
1730 MAX = 6700 US 0 OF 410 ABOVE SPEC’D MAX OF 3000 US 
172 AVG = 6500 uS 
Pa te ONE CYL SEEK TIMES : 
| ge AIN BR. DIRECT IONE 
| 473% MAX = 6698 U 0 OF 410 ABOVE SPEC’D MAX OF g000 US 
1737 AVG = 6511 U 
1738 #*REVERSE DIRECTION«s 
1728 MIN = 6317 
1740 MAX = 6698 ue 0 OF 410 ABOVE SPEC’D MAX OF s000 US 
| 174 AVG = 6507 US 
| U74e 
1743 END PASS #® = = 2 
| L744 TO TEST ALL DRIVES TYPE "A™<CR>, ELSE <CR> 
| 74s # 
 L7HE 
1747 
«A248 
1748 3 
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a: 


rf 
~- 


| ine — ees ite “PART” IS DEFINED = 0, PART WILL BE ASSEMBLED. ### 
| i75< :##e IF "PART" IS DEFINED NOT = 0, PART 2 WILL BE ASSEMBLED. se 
1755 
| i755 -NLIST MC,MD,CND 
1756 “LIST ME 
1757 i “ENABL ABS. AMA 
i758 187000 $SuR= 167000 
1753 + SELRELAELAAASLLLAAAA LSS ASAALLALFFSEFSRELESLESFAASSLLLLEALAFALLLLFS 
176 “SBTTL STARTING ADDRESSES 
¢ : 
i762 i 200 - DEFAULT PARAMETERS FOR TESTS 1-21 
i763 i* 204 SELECT PRRAIE TERS FOR TESTS 1-21 
1764 220 DUAL-ACCESS DATA TEST 
cep Y squnescsnneuenkbabonssbastebassontanaunruanesussunesqvensenasces 
1767 oc0001 Nzl 
1768 TITLE MD-11-DZREM-C - RKB1I/RKO& SUBSYS. VERIF. : PART 1 
rea ae Eautenent EOP. 
1771 MAYNARD, MASS. 
| 1553 Feroona BY DAVE HOFFMAN 
1775 #THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
eas ;#PACKAGE (MAINDEC-11-DZQRC~Ce), SEPT 14, 1976. 
177 -SBTTL OPERATIONAL SWITCH SETTINGS 
| 1786 SWITCH USE 
4 ‘e'.  .» seneee ONS oeesneesen 
| 1782 1# 15 HALT ON ERROR 
| 1783 te 14 LOOP _ON TEST 
| 1784 ie 13 INHIBIT ERROR TYPEOUTS 
| 1785 :* le REPORT DESCRIPTION ONLY, ON ERRORS 
«786 1 1° INHIBIT ITERATIONS 
| 1787 :* 10 BELL ON ERROR 
| 1788 # g LOOP ON ERROR 
i788 1% é APPLY RANDOM STALL BETHEEN OPERATIONS 
} 1750 :# 7 DO EXPLICIT SEEKS INT STS 1-1 
| 173 ti b REPORT 1 ERROR PER TRANSFER IN TESTS 17,21 
| 1798 : = INHIBIT WRITES I T 21 
«1783 : 5 1817 WRITE CHECKS IN TEST 
| 1794 # 3 INHIBIT READS AND SOFTWARE cofPaRes IN TEST 21 
| 1795 rH 2 INHIBIT SOF THARE COMPARES IN 
| 1796 1 # FI HO AFTER 8 WRITE CHECK ERROR tN TEST 21 
| 1797 1% 6 REPORT ALL SOFTWARE COMPARE ERRORS IN TESTS 17,21 
| 73 -SBTTL CONTROL SWITCH SETTINGS (PARAMETER CS) 
| 1800 i SWITCH USE 
| 1802 te os DROP DRIVE IF 20(DEC) ERRORS EXCEEDED 
1803 # O04 TYPE BAD SECTOR FILES (BSF’S) ON FIRST Pass 
| 1604 # 02 INHIBIT TIMING REPORTS IN TESTS 13-16 
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001108 


000290 
177776 


177774 


000009 
40 


000010 
000004 


ee eee 


SUBSYS. 
:03 


VERIF. : 


PART 1 
BASIC DEFINITION 
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Ss 


-SETTL BASIC DEFINITIONS 
;#INITIAL ADDRESS OF THE STACK POINTER ##* 1100 ### 


Srack= 1100 


“EQUIV EMT. ERROR 
[EQUIV IOT:SCOPE 


HT= 

LF= 

CR= 1 
CRLF= 200 
PS= 7776 
.EQUIV PS. PSW 
STKLMT= 172774 
PIRQ= 177772 


- 


DSWR= 177570 
DOISP= 177570 


coe § Wann DEF INITI 


A sceatee LEVEL DEFINIT 


;;BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 


ONS 
;;CODE FOR HORIZONTAL TAG 


STESBE FOR CARRIAGE RETURN 
S:CODE FOR CARRIAGE RETURN-LINE FEED 
: {PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUES 
;;HARDWARE SWITCH REGISTER 
;;HAROWARE DISPLAY REGISTE 


T REGISTER 
R 


pBGENERAL PURPOSE REGISTER DEF INT TO 


; ; GENERAL pease ter 


 etack POINTER 
iT BROGRAM COUNTER 


10 


BRBBBRB 


, 


LEVEL 6 
PRIORITY LEVEL 7 


:#"SWITCH REGISTER” SWITCH DEFINITIONS 
41S= 100000 


RO= 0 
Ri= “1 
Re= % 
R3= 4 
R4= %4 
RS= yA) 
R6= “6 
R7= 47 
SP= te 
PC= % 
PRO 

PRi= 0 
PRe= 100 
PR3= 140 
PRY= 200 
PRS= 240 
PRE= 300 
PR7= 340 
G15 

SWi4= 


SW1li= 000 
SWid= 2000 
SWwOS= 1000 
ScWwOB= 400 
SwO7= 200 
SW06= 100 
SwOS= 

SWwOY¥= 20 
SWO3= 10 
SWOe= 4 
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cococo 
PA LOLS Bee 
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900002 
000001 


000064 
000240 


DATA 


- «BASIC 
ERRVEC= 


0 


WDWWOWMOMWWWMW-—-mwoH—no 
O-40 4-4 4 4 4-4 
efavatatatatatatatat 
etetntapetutabsts pre 
DONWMMOMMwWMMMMD 
40-44 4 4 04 4 
44H 
O-nwW £uNIOjoOWw 
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BASIC DEFINITIONS 


iad TRAP VECTOR ADDRESSES 


ESVEC= 10 


TVEC=1 
Vv 


TBI 
TRIVEC= 

ah C= 
0 


TPVEC= 
PIRQVEC 


4 
=e4 


4 
14 


apes OUT AND OTHER ERRORS 

i sRES RVED AND ILLEGAL INSTRUCTIONS 
:: TRACE TRAP 

;;BREAKPOINT TRAP (BPT) 
!LINPUT/OUTPUT TRAP (IOT) **SCOPE** 
:;POWER FAIL 

; 5 EMULATOR TRAP (EMT) #**#ERROR*# 
::" TRAP" TRAP 


::TTY KEYBOARD VECTOR 
:: TTY PRINTER VECTOR 
: : PROGRAM INTERRUPT REQUEST VECTOR 


240 : 
.SBTTL MEMORY MANAGEMENT’ DEFINITION 


SEG C037 


M03 
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O2REMC.P11  OS-OCcT-76 10:03 MEMORY MANAGEMENT DEFINITIONS 
1918 ;4KTLL VECTOR ADDRESS 
1826 o00250 MMVEC= 250 
138 :4#KT11 STATUS REGISTER ADDRESSES 
1354 177572 seo: 177578 
1636 1377255 ERis_ 177874 
1936 177E5¢ BR2= 177876 
1827 17BELE eR3= «1 72ELE 
1398 ;#KERNEL "I" PAGE DESCRIPTOR REGISTERS 
193] 172300 KIPDRO= 172300 
1932 172302 KIPDRi= 172302 
1933 173304 B= 173504 
1634 173366 KIPDR3= 172306 
1935 175310 KIPDR4= 172310 
1836 175312 KIPDRS= 172312 
1937 172314 KIPDRE= 172314 
1338 172316 KIPDR7= 172316 
1346 -¥KERNEL "I" PAGE ADDRESS REGISTERS 
1942 172340 KIPARG= 172340 
1643 175342 KIPARI= 172342 
1944 172344 AR2= 172344 
1Sus 175346 KIPARS= 172346 
iSue 175350 KIPARG= 172350 
iu? 17E362 KIPARS= 172352 
1648 172354 KIPARS= 172354 
148 172356 KIPAR?= 172326 
195] 170200 MAPLOO=170200 
1&2 175202 MAPHOO=170202 
1665 172100 MEMCSR=172100 ;MEMORY CSR REG START ADRS 
1984 175540 LOERAD=177740 11/70 MEM LO ERROR ADRS REG 
1955 177742 HIERAD= 177742 11/70 MEM HI_ERROR ADRS REG 
1956 177749 MEMSYS=177744 11/70 MEM SYSTEM REG 
1357 TEDTTL TRAP CATCHER 
195 ooooo0 =0 
i960 ;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT™ 
1961 SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRU 
162 aot j#COCATION CONTAINS OT CATCH IMPROPERLY LOADED VECTORS 
1664 000174 O90000 ISPREG: ” HORD ;;SOFTWARE DISPLAY REGISTER 
iSe5 000176 00000 a Bree’ “tiok tTSOFTWARE SWITCH REGISTER 
196 *SBTTL StBRTING ADDRESS(ES) 
1367 000200 900137 OleHsE Jp). S#DFSTRT ;;JUMP TO STARTING ADDRESS OF PROGRAM 
1663 000166 OD0000 HZ: ‘WORD O sLINE FREQ. FLAG - 0 = 60 HZ 
1979 000204 "3204 
1671 oo0204 00137 o12530 IMPs ASPSTART 
1972 000220 a 
1873 op0220 000137 ol2si2 IMPs MHDASTRT 


SEQ 0036 
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ood22 901100 


.DZREMC.P1i 


1988 


el eel ee ed eed ee 
rare peeteater 
PRE oes |S 


1997 


oo. 


000377 


PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE 40 
STARTING ADDRESS(ES) 


.-LOW: .WORD 700 
HIGH: .WORD 1100 
“SBTTL ACT11 HOOKS 


‘ © SHLEASLARARAAAR REA AA EE AAAS SAE E LSE LE LES EFSF SLERE REL FFLEAAAA ELSE 
HOOKS REQUIRED BY ACTLI 


ue ;SAVE PC 
SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“OR 140000 p30) 36) LOC. Pa TO 140000 

- =$SVPC ;; RESTORE P 


.=1000 
.SBTTL APT PARAMETER BLOCK 


© SKKAKLLEKS FREESE KAAS ELA K LE LEAL ELSE PERK ELL FRE LAAHARELERERLEFEESE 

:BET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

FE TSAVE CURRENT LOCATION 
"=24° =: :SET POWER FAIL TO POINT TO START OF PROGRAM 


eOO, LEDS RPT Sat INDIRECT GODRESS PNTR. 

SAPTHOR POINT 18 &6 APT T INDIRECT 

=.$X  ::RESET LOCATION CORNTER 
~HHHHEHHHHHHHHEE AO HEHHB GHB BHEH BH HHE HEH HH SHEH BESS HHHEEBHBESEHE 
SE TUE PT PARAMET ER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 


SAPTHD: 

SHIBTS: .WORD 0 33 THO HIGH BITS OF 18 BIT MAILBOX sar 
$MBADR: .WORD S$MAIL ;ADDRESS OF APT MAILBOX (BITS O-15 
S$TSTM: .WORD 1360 : RUN ie OF LONG T 

SPASTM: .WORD 1546 3; RUN T 


SUNITM: aries 1546 

ORD SETEND- -shAiL’e ah ba MAILBOX-ETABLE (WORDS) 
AVECTI= 120210 ;RKVEC=210, RKPRI=S 
ABASE=177440 3k ADR 
ADE VM=000377 :SET DEVICES 0-7 IN MAP 


ST TES 
ME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RN TIME (SECS) OF A-PASS FOR EACH ADDITIONAL UNIT 





-—— 


| 
| MO-11-O2RGN-C - RKGLI/RKOG SUBSYS. VERIF. : PART 1 MACYL1 27(1006) OS-OCT-7& 10:13 PAGE 41 SEG D040 
i DIeS_c. li de-oc -"éE 10:3 COMMON Sas 
e518 .SETTL COMMON TAGS 
cls 3 5 SSFSSESSSSSSSESSSSSSFSSSFESSSSLSSSSESELSSSFRSSSESESF SSL SSSSFSESSESS 
O15 s#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
| 8 : aS IN HE PR OGRAM 
2018 003100 .21100 
Fas 301190 438: SCMTAG: an a :;START OF COMMON TAGS 
oe ; ‘ . 
e0e] BetiRe aa STSTNM: .BYTE 0 s; CONTAINS THE TEST NUMBER 
e0ee 901103 500 SERFLG: .BYTE 0 s3CONTAINS ERROR FLAG 
| 083 31108 900090 SICNT: .WORD 0 “CONTAINS SUBTEST ITERATION COUNT 
| ee 1108 900000 SLPADR: .WORD 0 ii CONTRING Sc OPE LOOF 8 RODRESS : 
| li eenese oo gs 
| StS Bettis SEER: aed 5 ONTAINE TOTAL ERRORS DETECTED 
202? 001114 00 SITEMS: .BYTE 0 ::CONTAINS ITEM CONTROL iy 
28 Sis ool - SERMAX: .BYTE 1 SSCONTRING BAX. PER 
Se: 1116 900005 SERRPC: | 6 *: CONTAINS PC OF LAST ERROR PReTRUCTION 
2030 001120 $GDADR: .WORD 0 ::CONTAINS ADDRESS OF GOOD’ DATA 
2031 OOlle2 900000 $80Q0R: .WORD 0 ::CONTAINS ADDRESS OF "BAD’ DATA 
| gOze Belted $0087: “WORD : CONTAINS ‘GOOD’ DATA 
| 033 OOlles T: WO :3CONTRINS *BAD’ DAT 
ees 31130 p WORD : ::RESERVED--NOT TO BE USED 
| 2036 90134 eas SAUTOB -BYTE 0 ssAUTOMATIC MODE INDICAT 
| p03? Sols oo SINTAG “BYTE : :: INTERRUPT MODE INDICATOR 
5o3 OO114G 177570 SUR “WORD DSWR s:QODRESS OF SWITCH REGISTER 
| g0H0 OOll4e 177570 DISPLAY: .WORD DDISP SS OF DISPLAY REGISTER 
«BOB iF Stee; 1 p7eee HTT KBO STATS 
| pods OOLISO 177564 $TPS: 177564 ssTTy PRINTER STATUS REG. ADDRESS 
| go44 901152 a9 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
So4s 901154 500 SNULL: .BYTE O !:CONTAINS NULL CHARACTER FOR FILLS 
ene 901135 oe sriits “BYTE e. $ECONTRING 8 * OF wbiteR CHARACTERS REQUIRED 
e ° 
— oHe «001157 60n STPFLG: .BYTE : 5s TERMINAL BVATL Tease” FLAG Frac” (BIT a7) SBEYES) 
| 2049 001160 on0000 REGAD: [WORD ::CONTAINS THE 
2050 ::WHICH (SREGO) Was saeTainen 
| 2—051 001162 oo0000 SREGO: .WORD O ::CONTAINS (($REGAD 
2052 001164 900000 $REG1: .WORD 9 :: CONTAINS { (SRE Cab) 53 
2053 001166 900000 $REGe: .WORD OQ : CONTAINS (($REGAD) +4) 
| 2054 001170 900000 SREGS: .WORD 9 ::CONTAINS (($REGAD) +6) 
2055 901172 900000 SREGY: .WORD 0 ::CONTAINS (($REGAD)+10) 
2056 001174 900000 SREGS: .WORD 0 :;CONTRINS (($REGAD)+12) 
c* 001176 900000 SREGE: .WORD 0 ::CONTRINS (($REGAD)+14) 
2058 O01200 o00000 SREG7: .WORD 0 t:CONTAINS (($REGAD)+16) 
2053 O0l20e 900000 SREGIO: .WORD 0 CONTAINS (($REGAD) +20) 
2060 001204 900000 SREG11: .WORD 9 ::CONTAINS (($REGAD) +22) 
2061 O01206 900000 SREG12: .WORD O ::CONTAINS (($REGAD) +24) 
2062 001210 9000000 SREGI3: .WORD 0 : CONTAINS (($REGAD) +26) 
2063 O0l2l2 o90000 SREG14: .WORD ::CONTAINS (($REGAD)+30) 
 «-BOEH +B01214 g00000 SREGIS: .WORD 0 :CONTAINS (($REGAD) +32) 
 -poes poielt 999950 SREGI6: .WORD 0 ::CONTAINS (($REGAD) +34) 
| 2066 001220 SREGI7: .WORD 0 ?;CONTRINS (($REGAD)+36) 
_ 2067 OOleee 00000 SREGCO: .WORD 0 :;CONTAINS (($REGAD) +40) 
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$REG21: — 0 3 conte Sees 25) 
Sie 3 ) +44) 

Eee Ee eae | Bee 2 

ga cee: “toe = +: CONTA Ne {SRE GAD <5) 

SRE GEG: -WORD © 3; CONTAINS { CORE 3a} 

sreese: are 5s EONTATNS ( ($REGAD) +56) 
: .WO ;;CONTA ( ($REGAD ) +60) 

sre esi: - WER 5 ;;CONTAINS {CSREES 3496) 
Ss °° TA NS (( )464) 

ere ees: -WORD OQ ;;CONTAINS ((SREGAD)+E6) 

G34: .WORD 5 s;CONTAINS (($REGAD)+70) 

SREG3S: .WORD s;CONTAINS (($REGAD) +72) 

SREGSE: .WORD 0 s;CONTAINS (($REGAD)+74) 

$REG37: .WORD 0 ;;CONTAINS (($REGAD) +78) 

STMPO: .WORD OQ ;;USER DEFINED 

STMP1: .WORD 0 ;;USER DEFINED 

$TMPe: .WORD OQ ;;USER DEFINED 

STMP3: .WORD OQ ;;USER DEFINED 

STMP4: .WORD 0 ;;USER DEFINED 

STMPS: .WORD 0 ;;USER DEFINED 

aes -WORD QO ;;USER DEFINED 

TMP7: .WORD OQ ;;USER DEFINED 

STMP10: .WORD 0 ;;USER DEFINED 

STIMES: 0 3 MAX. NUMBER OF ITERATIONS 

SESCAPE: 0 s;ESCAPE ON ERROR ADDRESS 

S$SELL: .ASCIZ <207><377)<377> tS ROE FOR BELL 

$QUES: .ASCII 7? ; ;QUESTION MARK 

SCRLF: .ASC «15> 1 | CARRIAGE RETURN 


: II 
SLF: ASCIZ <l2> aa 
 SEERSREGE SSS EEEESERERESSEEREEESE ESSE EEEEEEEESEEEEER REESE ETERS . 
‘aSTTL APT MAILBOX-ETABLE 


ss “gery meng ncnenT ee mM ogee = eT PERFLALELLLEE 
VEN 


MAIL: ;;APT MAILBOX 
S“SGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ; FATAL ro NUMBER 


STESTN: WORD ATESTN 3; 
donee.’ “WORD APRES iipReS COUNT. 
SOEVCT: WORD ADEVCT :;DEVICE COUNT 
SUNIT: :WORD AUNIT 31/0 UNIT NUMBER 
§ WORD AMSGAD ;;MES 

SMSGLG AMSGLG ; ;MESSAGE 


USWR: . RUSWR ; SWITCHES 
SCPUCP: .WORD ACPUOP ;:CPU Ms Ba 


1 

11/70=06 ,PDO=07, 0 

EAL TIME CLOCK 

LORTING POINT PROCESSOR 
EMORY MANAGEMENT 











YPE 
1/04=01,11/05=02, st SONS 11740204, 11/45=05 


tpt 


IEREREERAD 


4. TI 


Bote 


PATIATIATIATIATIALIALIALLATIALLALLAT LAL ADLAttlatlitliltlaliin) 
ek eek ek ed ed ed ed ed ed dd ed dd ed ed ed dd 
HAE SEVER RIORLES 


BEBESSSSSBERES B 


— 





MACY11 27(1006) OS-OCT-76 10:13 PAGE 43 SES S042 
Sto sdx-£ TABLE 


ie oy PORES M.S. BYTE 


Kei 
ii PE Bete” -- (HIGH BYTE) 


358 aR 
3 & BIPOLAR=002 
500 NSEC Noss =003 
$ sHIGH 60 ADDRESS 
TOGA. = =3 *ByTES. THIS WORD AND LOW OF “TYPE™ above 
$3 get Cah . BYTE 
a BLK Be 
33 ali Abo LapoRE SS M.S.8YTE 


PE Sikes 
Ha “Last BODRESS, BLK 83 
::HIGH ADDRESS, M.S. 8YTE 
MEN. TYPE, SLK bY 
$M, LEST 7 PODRESS 

T vect aati Bue PRIORI ys 

SNTERE PT CTORSEBUS PRIORI TYs2 
pga OF fey ement onnoes TEST 


nn 
ne 


er oer eer oer oe 


BE88 


ASER 


roronororororororororororurorurorofururorufrorurofrorororururororurururofor 2 4 
oe 2 


TU es be ss ss kh hh hh eh te 


S888 


BE GRRE Balad otal fain icknle SINT hoe wie tet 
REVS RLVS 


0b 


GOH FES 


rororururorororororuroruorurororororuru 
et eee aed 


Ses 8888 8888 


iste hitb Subset tata 


ar eer 
: = 
oO 

es 














~ RKELL/RKOG SUBSYS. VERIF. : PART MACY11 27(1006) OS-0CT-76 10:13 PAGE 44 SEG C043 
05-OCT-76 10:03 ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 


#THIS T TAINS THE INFORMA R EaCH ERROR T Ccu e. ‘ 
ieThe rieorbat ton fe ostaieD ey usin fhe nf 
LOCATION SITENG. THIS NUMBER INDIC BTES nice Tren HIN TH THE TBLE IS PERTINENT. 
eNOTEL: ITEMB IS 0 THe Cie Y PERTINE (SERR 
: NOTES: ae ITEM IN THE TABLE CONTAINE. Hl PAINTERS SEP AyNeD AS FOLLOWS: 
:* M :;POINTS TO THE ERROR MESSAGE 
:* at !:POINT 19 tHe a HEADER 
:# OT :: POINTS 
:# DF ::POINTS 8 Te BATA FORMAT 
SERRTB 
pat -ERROR | sUNIBUS PARITY ERROR 
osss77 tm) 
D672 DH100 
SEE45E 07100 
72 DFOL 
-ERROR 2 :NON-EXISTANT MEMORY 
ossé23 EMe 
06067 DH100 
O62456 07100 
062672 OF OI 
-ERROR 3 sNON-EXISTANT DRIVE 
oSs647 EM 
560672 DH100 
062455 
6257. DFO 
-ERROR 4 sUNIT FIELD ERROR 
osse7e EMy 
060672 
dE2456 07100 
db2s72 FO 
-ERROR S ;SUSSYSTEM TIMEOUT 
055712 EMS 
72 BHI 
456 Tl 
Ob2b22 DF Oz 
-ERROR 6 
os5732 EME :D TO C PARITY ERROR 
$e is 
245 Tl 
OFO3 
-ERROR 7 
FN? An :DRIVE DETECTED PARITY ERROR 


Obe4SE 07100 


{ 
= 
- 

4 
o 
Fi 

z 

7 
oo 


PREM-C = RKELIVRKOG SUBSYS. VERIF. : PART MACYLI1 27(1006) OS-OCT-76 10:13 PAGE 45 Seo 004 
DeREMC.F11 08-Oct-76 10:03 ERROR COINTER TABLE 
2203 OOl46E O626SE OFO3 
ae -ERROR 10 
|S we Bi ae 
220s BOlY74 OHe2456 Bao 
2208 001476 DFO2 
gio ERROR 11 
51} 001500 oS6021 M11 ;SPEED LOSS 
2213 001502 O60672 DH100 
| 2214 OO1504 O62456 07100 
| ge:5 O01506 O62t22 
+5 “ERROR 12 
| g2I8 001510 oseoa4 EMie2 s ILLEGAL FUNCTION 
«BB BEG Bee ies 
»«-BEE1 «OO1Ele pes ces OF 
Doce 
2222 “ERROR 13 
| 2224 001520 oOsé0ss Em13 ;PROGRAMMING ERROR 
2225 001522 ODES 5x10 
| 2226 OO1524 O6545e 57100 
eee? 00152 O62572 FOI 
| 
zze3 -ERROR 14 =NON-EXISTANT FUNCTION 
2230 001520 EM14 
_ ge3l 001532 60672 D5H100 
| Be32 o01534 OT100 
se 001536 DF O2 
| $33. “ERROR 15 
2ese OOLS4O 056125 Emis ;DRIVE TYPE ERROR 
37 001542 O60672 5H100 
| 2238 OO1s44 O624se OT100 
| ce73 OO1S4 Ob26be22 DF de 
2e4] -ERROR 1 
| ee4e OO1SSO OS6146 EMle ;FORMAT ERROR 
2243 001 060672 DH100 
2244 OO1S54 OE24sE T100 
45 00] Ob2b22 FO2 
5535 “ERROR 17 
«BEY «~OOISEO OS6162 EM17 :WRITE LOCK ERROR 
«BES «001562 060672 DH100 
«ps0 oa 4 Oeo4se 57100 
| p51 06] dbet22 OF Oe 
| ese 
| 2253 ERROR 20 
«e254 001570 oseen4 Ete :DRIVE UNSAFE 
«pees OC1E72 Db0E72 HiO0 
BREE 01574 0624 DT100 
| 2267 OO1E7E Gezez2e2 OrO2 


one 


oO cro 


888 8888 8888 8888 sss 
Sens = EGE 


er er eer rs 
rome 
FEMS 


ee ee ed ed 
ofthe 


S888 SSBB s 
FE 


S888 8888 


SYS. VERIF. ; PAR 
ERROR F 


. 


“ERROR 23 
§M23 
DH 


;ERROR 2S 
M 


e 

1 
Tl 
OF 02 


-ERROR 30 
§M30 
OH 


100 
7100 


-ERROR 31 
§M31 


ERROR 32 
Enz2 



















rl 
OINTER TABL 
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;SEEK INCOMPLETE 
OVERFLOW 
ILLEGAL CYLINDER 
;DRIVE OFF TRACK 
DRIVE TIMING ERROR 
;DATR LATE 
;CONTROLLER TIMEOUT 
;OPERATION INCOMPLETE 
;HEADER VRC ERROR 


;DATA CHECK ERROR 








1D oy ae = RKE1i 
DZREMC . F 


05-00 56 10:03 


2315 001712 06067e 
OS24SE 


2325 
2326 001730 oses25 
e367 051736 060672 

> 

329 Beta: 33 
2230 
2321 
2332 001740 OSESHS 
2333 001742 60672 
2234 OO01744 O6e4se 
2335 O01746 Oses7e2 
£236 
Fee 001750 OS&ED1 

323 001752 900000 
2240 001754 400000 
2341 00175¢ 
e242 

| B343 

«BMS OOI7ED §«OSb624 

| ga4s 001762 900000 

| e246 001764 Ss00000 
2347 00176 9O00000 
2248 

«ERS 
2250 001770 oSts 
235: 001772 O60672 


| 2353 001774 Deedse 
| 77% 


368 OE 2456 
369 6 
360 

es! 

| 2362 957001 


pe ree 


: MACY11 27(1006) 
Enkor MEOINTER TABLE 


100 
07100 


:ERROR 33 
EN 


iERROR 34 
He 

jERROR 35 
ae 


“ERROR 36 
EM36 


sERROR 37 
M37 


OS-OCT-76 10:13 PAGE 47 SEG 0046 


;WRITE CHECK ERROR - ty 


;DATA MISCOMPARE(S) 


;NO DRIVE RESPONSE-UFE & NXD 


;DRIVE ERROR WILL NOT CLEAR 


;DRIVE STATUS CHANGE WILL NOT CLEAR 


;ATTENTION BUT NO STATUS CHANGE OR FAULT 


;ATTENTION BUT DRIVE NOT AVAILABLE 


;ATTENTION WHEN NOT EXPECTED 


;ERROR WHILE GATHERING DRIVE STATUS 


ee a ee eee ee 


MO-1 yo gies = meee og tae 


OZREMC.F 


e410 


ahah gh at tat a 
PT ey er ey eet er er 
OnN@MU.£ Ure 


00202 


eet Ser ors 
0-20-22 h 
Mm £uO 


Ps 


05-0CT- 
063066 


VERIF. 


: PART MACY!1 27( 1006) 
ERROR POINTER TABLE 


;ERROR 47 


Fife 


ate 
;ERROR SO 
EME? 
DH100 
DT100 
DFie 


ERROR 51 


OS-OCT-76 10:13 PAGE 46 


;CLEAR CONTROLLER DID NOT CLEAR ERROR 


3;NO ATTENTION IN ATTENTION SUMMARY REG 


s/JNSOLICITED ATTENTION 


;UNEXPECTED DATA TYPE ERROR 


;ATTENTION DID NOT RESET WITH CLEAR 


:SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
:MULTEPLE DRIVE SELECT 
;ABREVIATED HCE ERROR 


;OPERATION INCOMPLETE ERROR 


SEG 0047 





1D yi - RKE ine, pes VERIF. 


OZREMC .P 


o-* b+ p< pe 


ob pa ee 


and FESS wo EES 


Rene Rees Rees BRR 


b2 bs B 2 pe 


05-00 


PART 


MACY11 27(1006) 
ERROR POINTER TABLE 


ERROR SS 


-ERROR S7 
EMS 
DHIOO 
DT100 
DFIE 


sERROR 60 
ENED 


_— 61 


ENG 

iERROR 62 
DH100 
prig0 
OF17 

ERROR 63 


Q 
DTé02 
OF eS 


ERROR 64 


EMES 


OS-OCT-76 10:13 PAGE 49 


;ABREVIATED HVRC ERROR 


;2 TIMEOUT ERROR 


;2ND LEVEL IN SUBSYSTEM TIMEOUT 


sERROR IN RECAL FOR RECOVERY 


;ABORT MESSAGE 


;CYLINDER MISCOMPARE 


;DATA ERROR WORDS 


;CLEAR CONTROLLER DID NOT CLEAR ERROR 


;NO ATTENTICN IN ATTENTION SUMMARY REG 


;UNSOLICITED ATTENTION 


SEG COME 





UBSYS. VERIF. : PART MACYLI 2711006) OS-OCT-76 10:13 PAGE SC Seq 004s 
A. ee Erkok Pornter teace oo '* | 





DH1C0 
br 190 
OF Ge 
ERROR 67 
a ie sUNEXPECTED DATA TYPE ERROR 
ERROR 70 
De :ATTENTION DID NOT RESET WITH CLEAR 
-ERROR 71 
EN79 ;SUBSYSTEM CLEAR DID NOT CLEAR ATT 
DH100 
07100 
oF oe 
-ERROR 72 
NCL :DATA LATE WHEN UNLOADING HEADER 
07100 
2508 O02216 OF O2 
2510 
geil -ERROR 73 
Ssie 002320 os76us tn72 s CONTROLLER ERROR DURING DRIVER SERVICE 
21> O0e322 60672 DH100 : 
2515 O0ese4 O624se 07100 
515 002326 Os2622 DFOe2 
2517 -ERROR 74 
2518 002230 os7714 §"73 ;DRIVE DETECTED PARITY ERROR 
2519 O0ez32 060672 54100 
| 2520 002334 62456 07100 
2521 00223 
555 ERROR 75 
B24 002240 os EN7 ; UNDEFINED ERROR 
| 2525 002342 060672 DH (00 
2526 002344 O624ce OT 10 
«527 O0e34e Obee22 OF O2 
«Be ee 
—«Beag jERROR 76 
| 2530 os EN?’ :MARKING SECTOR BAD MESSAGE 
| pS31 002352 00000 
e832 002354 600 
«gE O0e35e 6 
pes 
«pes “ERROR 77 
| BEI 002360 oED0za EM7E :0AD DATA VERIFICATION WITH READ 
| —537 O0e3%2 061657 DHEOS 
| 2538 002364 ObesHe OTE! 


en ~ - - —<-- 


nn 


MD-1L1-DZREM-C - RKGII/RKOG SUBSYS. VERIF. : PART 1 MACY11 27(1008) OS-OCT-76 10:13 PAGE S1 SEQ 00S0 
DZREMC.P11 OS-OCT-76 10:03 ERROR POINTER TABLE : 

2539 002366 063342 Fe! 

2546 

Seas ee te RETRY SUCCESFUL MESSAGE 

sejg Soesc0 = pbRaSe ; 

2544 002374 of2s4e OT601 

2545 002376 o63402 oFe3 

526 “ERROR 101 

2548 O02400 o60102 £M77 :ANOTHER RETRY SUCCESSFUL MESSAGE 


e552 
2553 > -ERROR 102 
2554 oO02410 of0le £M100 sRETRY UNSUCCESSFUL MESSAGE 
2555 002412 900000 
002414 62542 OTEO1 
2557 002416 0634 
2558 
5 -ERROR 103 
002420 60146 EM101 :NO VALID HEADERS IN TRACK JUST READ 
1 O0e422 O€1641 DHEO42 
2562 de2es4e DT601 
| e563 002426 O6341e2 OF 24 
«BRR 0224 Erno - BSE ERROR ON SECTOR NOT LISTED AS BAD 
gape Speso  pb0Ps: pitige ; 
2568 002434 OG24SE 07100 
2569 002436 O&2622 OF 2 
| 5E79 
257 “ERROR 105 
| BE72 ooe44o ob0276 §M103 : TIMED-OUT ON READ HEADER 
| 2573 060672 DH1O0 
| 2574 OOe444 O62456 07100 
2575 0626 DFO3 
2576 
2577 -ERROR 106 
2578 O024S0 o60324 EM104 sTIMED-OUT ON SEEK 
257g 02452 60672 DH100 
2580 44 O6e4S6 07100 
2581 456 Ob2656 OFO3 
2582 
| 2583 ;ERROR 107 : 
| pee4 460 Ob0246 £m105 ;DRIVE SIEZED BY OTHER PORT 
| 2585 be 060672 DH100 
| #586 OC64E4 DeeusE 07100 
e587 ODE466 Ob2622 DF O2 
| B59 ‘ERROR 110 
2590 002470 O604D! £M106 ;"DATA MISCMPR WHILE SAI SET” 
| p§8i 602472 O60672 DH100 
| 2592 002474 ObE24sE OT100 
2592 O0C476 063432 DF 27 
| BESS 
| 
| 


— -_-— = - Se 





MO-11-DZ2REM-C - RK61i/RKOG SUBSYS. VERIF. 
DZREMNC.P11 
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002610 
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000009 
000080 
062542 
062046 


060653 


PART 


MACY11 27( 1006) 


ERROR POINTER TABLE 


; ERROR 


E 


lll 


lle 


113 


114 


115 


116 


117 


120 


lel 


lee 


OS-OCT-76 10:13 PAGE Se SEG 0051 


;"NO NEM WHEN EXPECTED” 


;"INTRPT WHEN CNTRLR NOT READY” 


;"NO ATTN ON SEEK” 


;DRIVE’S CYLINDER INCORRECT 


; TYPE ADRS OF DATA MISCOMPARE(S) 


;DATA MISCOMPARE (11/70) 


;PART OF DATA MISCOMPARE 


;ABORT- CAN’T READ BSF 


;KT11 FAILURE 


;MEM PARITY ERROR 


MO-11-DZREM-C - RKELI/RKOG SUBSYS. VERIF. 
DZREMC.P11 05-OCT-76 10:03 


2651 O0e6l2 060672 
e6Se 002614 O6e4S6 
e653 002616 063502 


PART MACY11 27( 1006) 
ERROR POINTER TABLE 
DH100 
DT100 
DF31 


OS-0CT-76 10:13 PAGE S3 


SEG 00Sée 


tC: ne ee: KOE SLSS"s. VERTF . 
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MACY1}) 27( 


-OCT-76 10:13 PAGE S4 


; PART ~006 ) o$ 
e17 RESIGNMENTS IN THE RKE.1 REGISTERS 


BIT ASSIGNMENTS IN THE RK611 REGISTERS 


RKCS1 
1§ 1 13 12 ll 10 3 g 
iCé . ' DI : DCPAR! CFNT ! CTO ! COT # BAI7 ! BAlG ! 
RW? RO t RO tf RW! RO PT RW tRw iR 

» 9 é - 2 2 1 0 

: ROY! JE ! SPARE! FH ! F3 Fo ! F 60 

- RW! RW! RW! RW! Rw! Pt Rt Rt 
sRKCS2 

> 15 14 13 12 ll 10 z ¢ 

: DLT ! WCE ! UPE ! NED ! NEM ! PGE !MDS ! UFE ! 
> RO ER RO! RO RO RO RO. 
, 7 5 + 3 2 l 0 

: I CLR ! BAL ! DESL! DS2 #95: !oS0 ! 
> RO ! RO ? RW i RW TE RW PR ER 
sRKDC (DESIRED CYLINDER) 

: 1 i4 13 i2 ll 10 3 3 
sM $ Mf NU! oN! » Nu !0C9 !0Ce ! 
: READ ONLY : 
a 6 S 4 3 2 l 0 


;RKDA (DESIRED TRACK AND SECTOR) 
; 15 14 13 le ll 10 | § 








; NU ! UN ! ! ! ! Tae ! TAL ! TRO ! 
; READ ONLY i 
; 7 = = 4 3 2 1 a) 

; UN ! UN ! SAY ! SA 

; RE 
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DOIN ssens Ay 


o 


yun 


Jae Jae 


nm 


5° 


dy 
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VERIF. 
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: PAR 
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:RKDE ay ct 


: 0B7 ! 0B ! 08S $0B4 ! DB] ! 082 ! 081 ! DBC ! 
; READ /WRITE 


: 14 13 2 li 10 5 E 
tWO1S ! WC1Y ! WC13 ! WC12 ' WCLL ! WCIO ! WCS ! Wce ! 
; READ/WRITE ! 
. 7 & 5 4 3 2 1! 0 
WC? § WC ' WS f WOH f CS fe fl of CO! 
: READ /WRITE i 
:RKBA ‘BUS ,POORESS) 
: 15 13 12 ll 10 g g 
‘BAIS ! BALY ! BALZ! BAL2 ! BALL ! BAO ! BAS ! BAe ! 
: READ/WRITE i 
; 7 & S 4 3 2 l 0 
: BR? ! BAB ! BAS ! BAY ! BAZ ! BAe |! BAL ! BAO ! 
READ /WRITE ALWYSO! 


se 


_ 
3 00S 
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sRKER (ERROR foes Yas 
; 1s 14 1 le 


s, 


an 


| 27 : DCK § UNS ! OPI ! OTE ! WE ! IDRE ! COE ! HvRC ! 
2765 : READ ONLY ‘ 
i e770 been enn ne = 22 nnn 22+ = en no ee ee en nnn nnn nnn 
2771 
2772 . ? & c - 2 i 1 0 
errs § remem ene eee ne ces e esos neces ecco oeccosocesecccoos 
e774 : BSE ! ECH ! DTYPE! FMTE ' DREARY ILF !' SKI !#! ILC ! 
e775 : READ ONLY ' 
ie sili eat te ee Ra aT it naar ROY aaa 
| e778 :RKDS (DRIVE STATUS) 
| 2775 ; = rs li 1 2 8 
2780 penne nnn n +--+ o-oo neo = +--+ = - + --- == ---- 
| eel sSVAL 1 DSC 1 PIF 1 SON! WRKE$ «#&UN ! UN ! DTP ! 
| g78e ; READ ONLY : 
2783 Ree ee 
2754 
se = : = - 3 2 l 0 
ei $ we eww ew ew ewe ew DP we OH KP MO OO eH ROH ER RH OH ww wwe eB em KM SP eh Mw Mw ww nw Kw Mm er Kr ewe 
| 2787 sDRDY !' VV ! DROT ! SPLS § ACLO ! OFSET! UN ! DRA ! 
| 2788 : READ ONLY ' 
i e789 : eae 
i; e730 
2731 RKMR1 (MAINTENANCE REG 1) 
| ergs 1 10 3 2 
| gM “RD  !§ WRT ! ECCwW PCD $ PCA ! MEWD ! NERD § MCLK ! 
arse sGATE i GATE ! ! ' ' ' ' 
27% READ ONLY i 
Co! Ripe Se Re ye Wana eee No lacs elatelnldeedcempematenretinatnnineaiinatadeassiiilidildeinnenanmamenansintin 
2798 j 
273s "a c 4 
2200 -j sepacaaetetnariiebentbetetieniemeataartnteatnatartaetneabaetelaatantaninecinaiaaratia tain aoa eminent 
2601 :MIND ! MSP § DMD ! PAT ! MS3 
con ; READ /WRITE 
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Donenc.Fil Os-ort=> br} Bessatments IN THE eee Ss, 

| p8o4 sRKECC/PAT 

sate ; 15 14 3 le ll 10 3 2 

| 2807 > UN ! UN ! UN ! UN ! UN ! EPALO! EPAS ! EPA ! 
2808 : READ ONLY i 

| Tt § Demme ne nme ee ereee cnn coe oeweeneososeencocsocosososose 
eth ae & S 4 3 2 ! 0 
2813 :EPA7 ! EPAG ! EPAS ! EPR ' EPAI ! EPAe ! EPAL ! EPAD 
3614 : AD of 

| Bis ee 

| 53:8 RKECC/POS 

| 25:8 a | Bk Bead Set Se 2 

| 2820 : UN ! UN ! UN ! EPOL2! EPOLI! EPOLO! EPOG ! EPOE ! 

«gee: : READ ONLY i 

| 2823 Digit 335m 

| eee i eek Gk gee ee Be SS 

| Bese TEPO? ! EPO ! EPOS ! EPOW ! EPO3 ! EPO2 ! EPOL ! EPOO 

«2687 : READ 0 

 -BBBB ,etetsenansnianeassansvenensceeesegpectantstaetinidistransislanancnsatereniniantsiinee 

| pees 

| Bee :DRIVE STATUS INFORMATION 

| pe3e sLINE A NESSAGE 90 

| 3e33 2 15 13 

| 3e3q | eon cctanceenandecernnnretemtinee anita semaine ent 

| 2835 : PAR ! DSC 
253E , oer aennnane enter ele ena e eae een eet f 
2837 

| peze  ? 
2e39 strates eecenieneeantrinetisinansrnenestsvanivamnssininibaninasts 
e840 sDROY ! 

| eB4l § remem eon ewe ee ee rw ew coeeesesosesesosseese -seseosoocors 
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br} ass RSS IGHMENTS IN th RKE11 REGISTERS 


;LINE B MESSAGE 00 
EES Le» Ss eae 


' ' HDS 1 

6 5 4 3 2 eee 
:DOOR ! BRUSH! HEADS! TRK ! UN ! DRIVE SELECT CODE } 
;LTCH fH HONE | 1 HOME i FLOW 


: PAR ! SERVO! LIMIT! SEEK ! PLO ! DIBIT! INDEX! MULTI! 
: i BRAKE! ON SKINO MO! ERR |! ERR ! ERR !HD SEL! 


, ? & 5 4 3 2 l 0 
[HEAD 'WRGTE'WR CUR! SEC ! NU ! MU! Of 1! 

“FAULTIAND NOFAND NO! ERR ! i i i i 
: iXISTON'WR GTE! i i i i i 
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UéREM P11 0S-0cT- 


2303 


rarvalvarvervarye) 
0 hs hs hs bs ae 
HOC NOU Wtue-2 


ee re | ee ee eee 


MO<1I-D2REM-C - RKELL 


RKOE SuesyS. 
303 


VERIF. : P 
BIT A 


ART 1 MACY 

SSIGNMENTS IN THE RK 
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;LINE A MESSAGE 11 
3 l 14 13 


, 


—-Or cro 


Cyll 27( 1006) 


PAR ! ALIGN! NU ! 
! SIGN ! 


OS-OCT-76 10:13 PAGE 59 


11 REGISTERS 


4 3 2 1 0 
NU ! DRIVE SELECT CODE 
le 11 10 3 8 


$ DECODED HEAD 
3 ROORESS 


RKO& CONTROLLER REGISTER DEFINITION 


;CONTROL AND STATUS REGISTER 1 
;WORD COUNT REGISTER 

;BUS ADDRESS REGISTER 

;DESIRED TRACK SECTOR REGISTER 
;CONTROL AND STATUS REGISTER 2 


SEG CcOSs 


HOS 





- PKGLI-RKOS SUBSYS. VERIF. ; PART 1 MACYL1 27(1006) OS-OCT-76 10:13 PAGE 60 SEG 2059 
05-OCT-76 10:03 RKO POE NTROLLER REGISTER DEFINITION 
12 RKDS= 12 TATUS REGISTER 
i4 RKERS 14 pe Bee ech 
lt RKASOF = 1g eRe NTION SURMARY AND OFFSET REGISTER 
ileake BKbeyLs £8 roeuy EYCINGER sa 
ee ie & ‘ 
= 
BRSSES St mines Res ESTER 
990036 RKMR3= 36 MAIN 
900030 RKPOS= 30 ieee. position ThE Omarion 
900636 RKECPS= 30 ECC POSITION N_ INFORMATION 
50032 RKPAT= 32 ECE P NE ORMATION 
60063¢ RKECPT= 32 ZECC PATTERN NF ORMATION 
.SBTTL DRIVE COMMANDS 
000101 SELDRV= 101 ;SELECT DRIVE 
000103 PACK= 103 PACK ACKNOWLEDGE 
easttes LEAR= 198 iD IVE CLEAR 
I NLOAD= | 
099111 SRTSPL= 111 :START SPINDLE 
29113 REC = 1]3 :RECALIBRATE 
il OFFSET= 115 
000117 SeEK= 117 : oe 
000121 RODATA= 121 “READ DATA 
00123 WRDATA= 122 WRITE DATA 
900125 RDHEAD= 125 ?READ HEADER 
000137 WRHEAD= 127 ‘WRITE HEADER AND DATA 
000131 WRICHK= 13! WRITE CHECK 
: THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER 
et ; TO SIMULATE A SPECIFIC DESIRED OPERATION 
 -BSES 000140 RELEAS= 140 ;RELEASE DRIVE 
2970 500141 ROSTAT= 141 GET ALL STATUS FROM DRIVE 
2971 d00164 RDALHD= 164 *READ ALL HE : 
2972 900i7¢ CONCLR= 176 : CONTRC LER CLEAR (BIT 5 OF ¢S1) 
| 3973 090177 SUBCLR= 177 :SUBSYSTEM CLEAR (BIT 5 OF CS2) 
te 006300 INTRe 300 : GENERATE INTERSUPT TO CPU 
<4 
| e376 : DRIVER ISSUED SERVICE COMMANDS 
| 2678 p0c001 DR.SEL= 901 ;DRIVE SELECT 
e273 009005 DR.CLR= O05 :DRIVE CLEAR 
ege! \SBTTL CONTROL AND STATUS REGISTER 1 BITS 
| oe 90 GO= BITO ;G0 BIT 
| 2964 900100 IE= BITé : INTERRUPT ENABLE 
| p9es 900200 ROY= BIT? :CONTROLLER READY 
«Se 900400 BAlE= etT :BUS ADDRESS BIT 16 
«BSE 001000 BAi7= BITS :BUS ADDRESS BIT 17 
—«psee 002000 COT=  &sITio ‘CONTROLLER DRIVE TYPE (O=RKO6) 
/ pge9 004000 €T0= ~—s- BITI s CONTROLLER. | TIMED OUT WAITING FOR 
| 2990 RIVE RESPONSE 
299] 010000 CFMT= 1T1e2 !CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 











105 
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DZREMC.F11  OS- Reet & 10:03 CONTROL AND STATUS REGISTER 1 BIT 

292 920000 speR= 81113 sDRIVE Bu BUS PARITY ERROR DETECTED BY CONTROLLER 

5445 Pg8888 Ree Bette RAYE ENTER EYE ce 

2995 190000 CCLRe BITIS : CONTROLLER ERR 

2997 : THESE SIT DEFINITIONS ARE USED FOR ADDRESS 

cae THE HIGH BYTE OF RKCEl 

oo0001 B.BAl6= BITO BUS ADDRESS BIT 16 

300! p000d2 8:Bal?= 8171 :BUS ADORESS BIT 17 

30 900004 B.CDT= Bite :CONTROLLER DRIVE TYPE (O=RKOG) 

#33 090020 B/CFMT= BITS !CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1220 SECTOR) 




















.SB8TTL CONTROL AND STATUS REGISTER 2 BITS 


RAZOR 


Sk 


} 
| 
900007 ORVMSK= 7 sMASK FOR DRIVE SELECTION CODE 
3008 600019 pest e113 : ELECT OR RELEASE DRIVE IN BITS o-2 
i te Bais Bits ip 2 tee tes ROR Rie IT 
3011 09 : CLRe BITS : CLEAR CONTROLLER gil DRIVES 
sole 4 StLR= BITS CLEAR CONTR Riv 
301 003106 : TRe BITS : INPUT 
| 63014 009209 OR= BIT? : OUTPUT 
| 3615 900458 UFE=  BfT8 :UNIT FIELD ERROR 
| 3Oié 501000 mpS= BITS MULTIPL DRIVE SELECT 
| 3017 000 PGE=  BITIO PROGRANRIN G ERROR 
| 3618 504000 NEM=  BITI1 NON SEXTSTENT MEMORY 
3015 010000 NED=  BITI2 :NON-EXISTENT DRIVE 
| 3020 620000 UPE= BETIS ?UNIBUS PARITY ERROR 
| 3021 049000 wee= BITI4 :WRITE CHECK ER 
354 100090 Difs  ITis DATA LATE ERROR 
3024 SBTTL ERROR REGISTER BIT DEFINITION 
soSe 000001 ILC= ITO s ILLEGAL FUNCTION CODE 
2027 ¥ILF= BITO : ILLEGAL FUNCTION CODE 
3026 ooge2 éyq= BIT : SEEK A Serve E 
Hes 0004 IiF= IT? SILL LLEGAL DRI UNCT ION 
| 3636 506004 NXF= BITe ?TLLEGAL DRIVE FUNCTION 
| 3031 900010 DRPAR= BITS !DRIVE DETECTED DRIVE SUS PARITY ERROR 
| 32 0020 FMTEs BIT4 FORMAT ERRO 
3033 900046 DTYE= BITS DRIVE TYPE ERROR 
2 Ol ECH= BITS : ARD 
3035 000200 BSE= BIT? ‘BAD SECTOR ERROR 
s50490 HCRC= BITS "HEADER CRC ERRROR 
36 0004 HVRC= BITE SHEA DER VRC ERRROR 
038 901000 COE= BITS :CYLINDER ADDRESS OVERFLOW ERROR 
203 969 IDAE=  BITIO s INV ALID DISK ADDRESS ERROR 
3040 0 WE= 8IT11 WRITE LOCK ERROR 
Kal 510000 DTe=  BITle IDRIVE TIMING ERROR 
3042 620000 OPI=  BITi3 ; OPERATION (SEARCH) INCOMPLETE 
3043 0000 UNS=  BIT14Y DRIVE UNSAFE 
Rue 100000 DCK= BITIS :DATA CHECK 
oe SBTTL STATUS REGISTER BIT DEFINITION 


A 


| 3963 


wt Wwiuwtow 
Satz = BE 206 
Patiitetefitobs tutu Po 


YS. VERIF. 


DRA= 


- SBTTL 


RDGATE= 
.SBTTL 


w 
o=<9o 
a= wD 
<uD 
" " 


LNW WN 
. . . . - a . . oo 
2 
7" 

n 

' 


tr 
_" 
' 


INMWMWUMWUNW -: 
wo=Lwv0en 

Or XDI_ 

me 


wnue 


érarue REGISTER BIT 


BITO 
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;DRIVE AVAILABLE (CONTROLLER IS SET IF 
: S S RESET) 
+ V a 
Sect Loss 
:DRIVE OFF TRACK 
Sever meaoy 
: DRIVE READY 
: DRIVE READY 
; DRIVE YEE (O=RKO6) 
SPOSTTIONING. IN PROGRESS 


:DRIVE STATUS CHANGE 
STATUS VALID 


MAINTENANCE REGISTER 1 BIT DEFINITION 


a swwMowowowmwmwwwa 


;MESSAGE MASK 


;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES 
DIAGNOSTIC MOD 

;MAIN Bt SECTOR PULSE 

; MAINTENANCE Saat 


aN TENCE O10 FRCODED —_ DATA 
NCODED WRITE DATA 
“e i. 
;ECC BOR aE BEING READ OR WRITTEN 


WRITE G 
READ Ate 


DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 


; DRIVE myer IAaLE 
LUME VALID 


VE T 
{DRIVE FORMAT 
; OFFSET 
;WRITE bOEK 
LE ON 
POSITIONING IN PROGRESS 
:DRIVE STATUS CHANGE 


DEFINITION OF DRIVE STATUS BYTE OO MESSAGE 8 


ac tO CYLINDER ADDRESS 


DRIVE F 

rT ELEGAL F Fun eb 

spe ere CTED DRIVE BUS PARITY ERROR 
WRITE LOCK ERROR 


;SPEED LOSS 


SE 


° COS: 








OZREMC.P11 


RZ i 


KOS 
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05-OCT-76 10:03 bet INT TION OF DRIVE STATUS BYTE OO MESSAGE B 7 
aupees 3:DRots et OE UE OFF TRACK 
040000 5: UNS= itis :DRIVE UNSAFE 
.SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 
900020 S.XDOK= BIT4 ; TRANSDUCER OK 
009040 S- HOHII= BIT5 
isla 2: BAAR girs cee 
900406 S{CART= BITS RTRAGE INTERLOCK 
031000 5: SPoK= BITS PEED G 
000 S:FwO= BITIO oe 
sed 3° C6ab= Btris ab st OADING 
5:RTz= = Bilis ee a TO ZERO 
57 UNL T14 HEADS UNLOADING 
.SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B 
Ts ;SECTOR ERROR 
4 : iW ke ae BEST CLOCK AND NO WRITE GATE 
909100 WGAT= BITé sHELTE, GATE AND NO TRANSISTIONS 
99200 2 GFL: BIT? HEAD F 
500400 S:MHD= BITS MULTIPLES HEAD SELECT 
001000 5: XERR= BITS INDEX ERROR 
DIB= BITIO :DIBIT ERROR 
004000 PLO= BITI1 : PLO 
010000 S°NMOV= BITI2 : AND NO MOTION 
920000 5:LIMD= BITI3 :LIMIT DETECT ON SEEK 
640000 5. BRKE= BITI4 : SERVO-BRAKE 
.SBTTL COMMON MASKS 
900007 M.DRV= 7 :DRIVE CODE 
100 M.PAR= BITIS gt A 
000003 M:ID= 3 BYTE ID 
017760 M°CDIF= 17760 : CYLINDER DIFFERENCE /OFFSET 
017760 M-CADD= 17769 CYLINDER ADDRESS 
077770 MSER= 77770 ‘DRIVE SERIAL NUMBER 
000760 M.SECT= 760 :SECTOR COU 
007000 M-HEAD= 7000 : HEAD Recobe 


GUG0100 (0G) 00 GI 0 G00 G00 G0 C0 GO C0) G0 G0 6d Gd) G0 Gd 6d C0 GC Gd Cd GIG Gad 

Cr EEE CUWWultwwWurtawuwrurrurrurorururorisctcs-s +0 +8 «0+ b+ b+ >< b+ p< 2 oo 
mw o- +6 +0 -<+0-+ > -+b-- p+ 

AEG LDeD OPO E CORE: Cou OD BORULE Contec Cheep -aerurt Tr tonue-ChbeD ae 
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PARAMETER BLOCK ALLOCATION 


OZREMC.P12 


ue 


wy 
ws 


O00 C0000) G0 G00 GI 0) G00 GI GIGI GI G0 69 GI GI GI 0000 I 6) C9 6) 60 G0 GG) G00 Gd Gd CG GGG) C0 CO GI GIO GD 
OOOO 0.0.0.0 0.0 CH WOOO CO WOW VIN GIGI row remem ow uO 


Oow 
-—Ow 


05-OCT-76 1 


000014 


000001 
000002 
000004 
000010 
000020 
000040 


. SETTL 


i 
J 


eee eee ee ee ee ee eee re eee re eee re re Te 


. SBTTL 


MACY11_27( 1006) 


EEREREEEERERREEEEEREEERESESEELESERERE RES EEE EE EEE 
! DRIVE 
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; CTL INOER ADDRESS i g 

i $ebe ! SECTOR i 4 
iebie-17 alti Tree! 6 OFFSET 8 
i Bo eth a : chip Phen NT) i 13 
i AM DRIVE STATUS INFORMATION #14 
i ao pte ND AND STATUS REGISTER 1 i ig 
i COMMAND Ai ND STeTUS REGISTER 2 i 26 
i WORD COUNT i 32 
i BUS ADDRESS REGISTER i 34 
i DESIRED TRACK AND SECTOR i 36 
i DESIRED CYLINDER i 30 
i Enndh AEs Y AND DRIVE OFFSET i 32 
i ERROR gI TER i 34 
: Peecnee i ONE F STATUS YTE 00 a8 
ness sre tINE & VIE 09 i dg 
i GE LINE A STATUE BYTE 01 i 44 
i NESeacE LINE 8 2 ATUS BYTE O1 i 4g 
i MESSAGE LINE A STATUS BYTE 10 i 0 
i MESSAGE LINE 3 STATUS BYTE 10 i 52 
i MESSAGE LINE A STATUS BYTE 11 i cy 
i MESSAGE LINE B sraTus BYTE 11 i 5¢ 
i ECC POSITION INFORMATION i £9 
i ECC PATTERN INFORMATIO H 62 


Pree rrtr iret rttt tt itt ttt ittiti ttt titi tet ee, 


PARAMETERS PASSED TO THE DRIVER 


ng FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 


TO THE RKO& DRIVER 


ee SINOUILCMUeO 


mo 


i4 


:DRIVE NUMBER 
:CYLINDER ADDRESS 
OR 


ITS 8-15 
;BUS ADDRESS cate 16 AND 17) 
: BUS oot (BITS 0-15) 

:WORD COUNT (2°S COMPLEMENT) 


PROGRAM DRIVE STATUS INFORMATION 


PROGRAM DEVICE STATUS REGISTER DEFINITION 


DRVUSE= BITO 


ORVOSC= BITS 


;ORIVE IN USE 
DRIVE POSITIO 


NING 
;DRIVE POSITIONED ro DATA TRANSFER 


;UNEXPECTED ATTEN oe 
;DRIVE HAS H 


HARD ERR 
:DRIVE STATUS CHANGE "or NOT CLEAR 


SEG 0063 


—— eee Sa 


MO-11-D2REM-C - tee Th: a VERIF. : PART 


OZREMC.P11 05-OCT-76 


FUrururorororura rure 
ows 


+ 0—* b= b= bo bs bs be pe 
—-OWO NOUS WTO 


fury 


forurururururu furore 
fu 


3e43 002620 
44 


000100 


000200 
000400 
001000 


000016 


PROGRAM 

CMDTO= 
eee 
NOCH 

PBSVAL= 


DRPORV= 
NO 


5 UN 
BrBATI= 
. SBTTL 


CR= 
AR= 


CYL= 
SOF = 


WEOOD 


-BO0= 


BSeg02sC 
iT) 


MODODPwWw 


UV UVUVUUUUUUUUDUUUUUUUND wows 
oO 
w 
" 


m 
Uv 
D 
~4 
1) 


MOS 
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DEVICE STATUS REGISTER DEFINITION 
BITE :NO TERMINATION TO COMMAND FOR AT 
BIT? jute ook E WRITE CHECK 

BITS HECK, DO NOT SET INTERRUPT ENABLE 
BIT9 PARAMETER STATUS WORDS ¥V 


(ae T Ne cor TERHTNAT ION OR 
READ STATUS COMMAND) 
:DROP DRIVE FROM yERI SEQ 


8IT10 QUENCE 
BIT11 ATTENTION SET BUT DCS AND Wits RESET 
BITle :DRIVE SEIZED BY ores tol 
pe BiTl3 SORIVE UNLOADED DUE T 
IT14 :PARAMETER BLOCK ERQUEUED : pore GUEUE 


BIT1S INHIBIT BUS ADDRESS INCREMENT 
PARAMETERS PASSED FROM DRIVER TO PROGRAM 


THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS 
FROM THE DRIVER TO THE CALLING PROGRAM 


16 ;COMMAND AND STATUS REGISTER 1 
20 :COMMAND AND STATUS REGISTER 2 
ee WORD COUNT oles 
Se : BUS BORNE REGIST 
6 ; DESTRED TRACK SECT : eeers ER 
30 DESIRED CYLINDER REGIST 
32 at TENTION GUNMARY OFFSET REGISTER 
34 ;ERROR REGISTER 
36 ;STATUS REGISTER 
0 ;MESSAGE A STATUS BYTE OO 
42 ;MESSAGE B STATUS BYTE 00 
44 ;MESSAGE A STATUS BYTE O1 
46 ;MESSAGE B STATUS BYTE O01 
50 ;MESSGGE A STATUS BYTE 10 
Se ;MESSAGE B STATUS BYTE 10 
SY i MESSAGE A STATUS BYTE 11 
6 ;MESSAGE B STATUS BYTE 1 
60 ECC POSITION INFORMATION 
62 ECC PATTERN INFORMATION 


PARAMETER BLOCK O FOR DRIVE 


BYTE 0 ;DRIVE NUMBER 

-BYTE Q : COMMA 

-WORD Q :CYLINDER ADDRESS 

-BYTE Q ;SECTOR ADDRESS 

-BYTE OQ ; TRACK ay a 

-BYTE QO ;OFFSET VALUE 

BYTE Q : BUS RODRE SS (BITS 16 AND 17) 
WORD OQ BUS ADDRESS (BITS O - 15) 

WORD Q ;WORD COUNT (2°S COMPLEMENT) 

-WORD Q ;PROGRAM DRIVE STATUS ave oon 10M 
-WORD Q ;COMMAND AND STATUS REGISTER 

WORD 0Q ;COMMAND AND STATUS REGISTER 3 
WORD 0 ;WORD COUNT REGISTER 

WORD Q ;BUS ADDRESS R ER 

WORD OQ :DESIRED TRACK AND SECTOR REGISTER 





Eee 


MO-11-D2REM-C 
DZREMC.P11 


3258 


002770 
002772 


O0877¢ 


003000 


- RK61 “ig 4 SUBSYS. VERIF. 
05-OCT-76 10:03 


000000 
000000 


09000 
000000 


PART 


PORANETER "BLOCK 


MACY11 27( 1006) 
O FOR DRIVE 


YNOO000 OOO O00D000 


OS-OCT-76 10:13 PAGE 66 

s DESIRED CYLINDER REGISTER 
BEENTAON 1 fatbdihanas REGISTER 

i BRROR 

S“TATUS REGISTER 

rrieSSAGE LINE : STATUS BYTE 00 

; MESSAGE Line 8 arate BYTE 0 

TATU 
MESSAGE LINE : STATUS BYTE O1 


ECC PATTERN INFORMATION 


.SBTTL PARAMETER BLOCK 1 FOR DRIVE 


PARMI: 


.SBTTL TEMPORARY 
- WORD 


T.CS1: 


oo 


QOOVOOVOKOOVOSOOKVOMOOKOKOKO0O0O0O0000 


0 


0 
0 


;DRIVE NUMBER 
: COMMAN 
:CYLINDER ADDRESS 
SECTOR ADDRESS 
Te 
BUS ADDRESS con 16 AND 17) 
BUS ADDRESS (BITS O - 15) 
:WORD COUNT (2°S COMPLEMENT 
:PROGRAM DRIVE STATUS ENFORHAT Ton 
;COM sa | AND STATUS REGISTER 
; COMMAND ap pry US REGISTER E 
;WOR T REGISTER 


;BU veh ER 

;DESIRED TRACK BND PEETOR REGISTER 

yah CYLINDER 

38 TTENTION SUMMARY/OFFSET REGISTER 
REGIST 


R 
;STATUS REGIST 
:MESSAGE LINE A STATUS BYTE OO 


;ME 
MESSAGE LINE B STATUS BYTE 11 
;ECC POSITION INFORMATION 
ECC PATTERN INFORMATION 


CONTROLLER REGISTER STORAGE 


;TENPORARY. STORAGE FOR COMMAND AND STATUS 
j TEHPORARY, STORAGE FOR COMMAND AND STATUS 
i TENBORRY STORAGE FOR WORD COUNT REGISTER 


; TEMPORARY STORAGE FOR BUS ADDRESS REGISTER 
; TEMPORARY STORAGE FOR DISK TRACK AND SECTOR 


SEG CO&s 





? 


. : PRAT I MAC 1006 ) 
TEMPORGRY CONTROLLER REGISTER STORAGE 


o- 


a 
4 


Ais 
ww 


. 


4 
esata 


OCD ~ 3 
Or £fuo 


+0 +0 <8 


i 
Behe 


’ wt 
tore 

tw 
0) 


368 
AA 4-4 
. . . . . a + . . . 


DRIVER PARAMERTERS 


peat: 


Sa 
i 


pegaee 


ta 


MAT ATS 
ye- 


crew 
me 
a 

aw 


ney 
an 
~4 
iT 
OOO ULE LITeE-O 
MLO 


Pelee ra) 
Cacat 


n 
+ 


« 


5 


i 


= = 3 
oa 
o-~ 


Lrtr Eade 
i 


N 


Ran 


i 


i 
2000 Orn 2G 


COICO 


i 


iota 


uv 








OS-OCT-76 10:13 PAGE 67 


; TEMPORARY STORAGE FOR ORIVE CYLINDERS 
s TEMPORARY 5 TORAGE FOR ATTENTION SUMMER Y 


; TEMPORARY STORAGE FOR ERROR REGISTER 
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LOrcrrinie« 


o-49-40-46> 


ADDRESS OF abba Od “EROOR FE 


: CONTR 

; THI nis tGcation 12 ee ct EARED WHEN EVERY COMMAND  - 

; 15 INITIATED. IF A CONTROLLER ERR 

: SECURS HE FOLLOWING BIT SeStaMeny rs 

gee TEQNTROLLER 010 No NOT CLEAR ERROR 

ONSOLICRTED ATTENTION NCSEGLENT IA ONLY) 
DATA oR 


CTE 
;ATTENTION DID NOT RESET WITH CLEAR 
; SUBS eM 4s CLEAR DID NOT CLEAR DRIVE 


NG HEADER 
DURING DRIVER SERVICING 


‘BR TECTED PARIT 
sat PFE PE % BHNAND : TINE oUF OUT (QUELED ONLY) 
MULTIPLES DRIVE SELECT 


fee ree on ean OF Wy prive 


OMPLETION 
‘Nop Ns R FOR MILISECOND SCAN OF DRIVE 
:16 mat ie o one Re Seo open 
; CPU VALUE 
; 11/05 100 
$ 11/10 
3 11720 
; llv34 
: 11/40 
: 114s) =—s- 400 
: 11/50 
: 11/70 
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» PART I MACYL1 2711006) OS-OCT-76 10:13 PAGE 6 
TF iver PARAMERTERS 
SEC: .W .SE T neck OMMANDS 
pe _ 300 : Esceeh Maat eevee ALL C 
W.BSEC: . 
WiMIN:  W Fide Paes Sar POE 
HOR.AD: .WORD 0 ; ADORE BD ALL HE 
HOR.CT: .WORD 6 3NU nue EP bees waa 6 bee ae READ 
I.ISRL: .BYTE O t NTERRUET OR RELEASED COMMAND ISSUED 
H.HEAD: .BYTE 2,4,10 “HEAD DECO 
W.TIME: .BYTE “DRIVES BEING WATCH-DOG TIMED 
.SBTTL INTERRUPT MASKS 
INTMSK: .BYTE 0 s INTERRUPT MASKS FOR DRIVE IN PARAMETER SLOCK 
: INTERRUPT MASK TABLE 
I.DRV: BYTE 1 : INTERRUPT MASK FOR DRIVE 0 
“ByTE iN RRUET Naee FOR BRIVE 2 
“BYTE 10 : INTERRUPT MASK FOR DRIVE 3 
"BYTE 20 INTERRUPT FOR DRIVE 4 
"BYTE 40 S INTERRUPT MASK FOR DRIVE 5 
“BYTE 100 : INTERRUPT MASK FOR DRIVE & 
“BY : INTERRUPT MASK FOR DRIVE 7 
.SBTTL PARAMETER BLOCK TABLE 
PELKT: PARMO sADDRESS OF PARAMETER BLOCK GIVEN WITH 
[DRIVE CALL. MUST BE LOADED INTO PBLKT 
SETTL TIME FOR WATCH-DOG TIMER 
W.ORV: .WORD O TIME FOR INSTRUCTION IN PARAMETER BLOCK 
.SBTTL PROGRAM SPECIFIC RESERVES LOCATIONS 
MOFLAG: .BYTE 0 iF LAG TO INDIC. DEFLT OR PARAM MODE 
XXDPCH: [BYTE 0 CHAIN 
TSTING: .BYTE 9 t AURRENTLY RUNNING TESTS IF = 
DERCNT: [BYTE 0 “DATA ERROR COUNT 
OPCOMP: [BYTE 9 :OPERATION COMPLETE FLAG 
DONE:  cBYTE 0 :DON E SUIT CH 
TYPFMT: .8YTE 0 TYPE & FORMAT CONTROL 
FORMAT: [BYTE : DEAE Fen FORMAT IN BIT 4 OF BYTE 
ERRCNT: .BYTE 
ERRLMT: .BYTE 4 : ERROR tint 
DRYERS: “BYT : :ERROR COUNT FOR CUR NT DRIVE 
OPCONT: [BYT RE RS TION: CONTROL SWITCHES 
PCLKF: .BYTE 0 IF BYTE=1, Ku LP zack 15 PRESENT 
TIM: ‘BYTE. 0 !IF BYTE=1; DO TIMIN t 
XOVLAD: .BYTE 0 -FLAG = 1 fF XXDP IS POSSIBLY OVERLAID 
SVO: .BYTE 0 sELAG = 1 IF xxDP IS 5 vO 
DULACS: :BYTE 6 :FLA I fr DUAL Access 
DRNAFG: .BYTE O t=] PNOICATES DRIVE Se 3 Tey OTHER PORT | 
REISSU: . BYTE : *DUAL-ACC FLAG TO RE-ISSUE COMMAND 


WCEFLG: . 


rURITE CHECK ERROR FLAG 
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MO-11-D2RSN-C - RK61! 
OPREMC.P11  OS-027-7% | 
ie ee be = ry 
RS Reg | 
| 3 300 
coke co 
| 3436 
| MBL 00313 90 
| Hae 00313 500 
M33 p00001 
| 3434 650052 
Su36 go5004 
3436 8000:0 
| 5437 ao0g2s 
3438 
| ts 003140 177546 
| 3441 003142 172540 
RSS tee 
146 172544 
3444 903150 00100 
Suus 03152 000104 
S308 03154 deere 
| 3y4e 00315€ 00000 
—«-eg Basi ee ana 
| 3451 Bo3i64 Bo0000 
«Be Siete, oopo00 
3853 ra 000006 
| 3454 603172 doco00 
SuES 002174 900000 
Su5— 002176 00000 
3457 903200 o00000 
3452 O02202 600000 
—«- BES ezeos Gono 
oe ee Be 
| 3463 Bessis 990000 
HE4 Soseie Sooo 
3465 002220 00000 
| 3466 O03ee2 00400 
3467 DO4e22 00400 
| «Hee 005222 g00006 
3465 005236 000006 
| 43470 005252 00000 
oh ee ae 
—«-8a55 GeeseB Gapeee 
3474 05262 000102 
3475 005466 900000 
2478 05470 Sooboo 
Su5e SeEa7d BoSeon 
347g 905476 00000 
3460 000000 
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aay vu 


HLPO cat 
NBT YEE: . VE 
WHOSW=81T 
HOSW=8IT1 
WCDASW=81T 
RCDASW=81T 
OREQSW=8IT4 
EVEN 
LKS: - WORD 
PKS: . WORD 
PKSB: WORD 
RB: . WORD 
CVEC: .WORD 
PCVEC: .WORD 
MEMVEC=114 
TCONLO: .WORD 
TCONHI: .WORD 
ale . WORD 
VMX1: WORD 
VMX2: .WORD 
UMLO1: .WORD 
SUMHI1: .WORD 
O02: .WORD 
SUMHI2: .WORD 
SAVPAR: .WORD 
SAVWRD: 
MINILI: 
MINIH1: .WORD 
MAXIL1: .WORD 
MAXIH1: .WORD 
MINILe: 
INIH2: .WORD 
ILe 
IHe 
BSSOFT: .BLKW 


; 7} 
PROGRAM SPECIFIC 
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RESERVED LOCATION 
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DATA LATE. syed FLAG 
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TPREV. U.B. MAP REG O 


;CURRENT U.B. MAP REG 0 


OUTPUT BUFFER 1 
;LOW 16 BITS OF + CONVERTED BINARY NUMBER 
HIGH BITS OF CONVERTED BINARY NO. 
i OUPFER porn TER 
*RECOVERY CODE WORD 
7E OVE 
DRI N USE 


;NO. OF 
; CURRENT NO. F NEY STALLS TO APPLY 


SES S088 





& 


o- 
o- 
' 
. @ 
a 
! 
o 


ee 


Boyoye 2 
iain Ye 


Cina 


Pa oe ak ae PR a 


+ b+ = 0 pe he pe ge 


tutu utututatos 
WO NUT £ ire 


t 
( 


ai 


rats 


rGnGneane Ga rtare eatare Creat 
MM MAE 


ww 
™N 


SUBSYS. VERIF. : PART 1 _MACYLI £06 OS-OCT-76 10:13 PAGE 70 6 0069 
:63 PROGRAM SPECIFIC RESERVED LOCATIONS 
a ee ‘EYEE ae ‘ar 
LS: ie , “LAST SECTOR L LyMit 
NCYL]: . Next XT CYL ee = CH WORD 
NCYLe: . 6 *NEXT CYL SCRATCH WORD 
gE INUS: Re ; Et IN 
iene: ; TTY IN I egy easun ie dais os 
Bac fhe: eRe 8 iat it iN iN t ‘ge Sho teates a PRT Ie nee GkeL oné 
CeeetH: oR OB ac BI OO 
PATRN: .WORD 0 ;DS7A PATTERN LIST WORD 
WORD i START NG ADDR Eee XXDP gg OPOER 
¥: .BLKW : : iNDF IS1CAL AL BV ADDRES 
feOrer: “Hon iit) Sees 
ven *BLKW g SAVE OONTT TAL ales ron aren 
FINCYL “HORS 5 ‘Phe DCM TCER © 
INTRK .BYTE 0 PING ? 
Fi BYTE : ‘pint Bote 
L S WC WwW sRCT URL 
PMA: "BLKW 2 PARTIAL TRANSFER MEMORY START ADRS 





-LIST OF DESIRED DRIVES TO TEST (IF BYTE=O, DON’T TEST ORIVE) 
ORVLST: 


001 .BYTE 1 sDRIVE 0 
001 “BYTE J : DRIVE 
001 BYTE } :ORIVE 2 
09} "BYTE } :DRIVE 3 
001 BYTE 1 : DRIVE 4 
001 BYTE i :ORIVE § 
001 BYTE 1 :DRIVE & 
001 BYTE 1 :DRIVE ? 
sLIST OF ITERATION COUNTS FOR DESIRED TESTS (IF=0, TEST NOT RUN) 
jax NUN ALLOWABLE NUMBER OF ITERATIONS = 77776 (4cT) 
900010 .WORD 10 ;TEST 01 
00 “WORD 200 :TEST Oe 
090030 “WORD 10 :TEST 03 
mae 10 :TEST O4 
WORD 2 TEST OS 
WORD 2 : 
-WORD e sTEST O7 
950406 "WORD 400 TEST 10 
oo0sod “WORD 500 TEST 11 
“WORD «2 :TEST le 
I “WORD :TEST 13 
1 "WORD TEST 14 
000001 “WORD ‘TEST 15 


am 


asd be ‘eit aes) 'S. VERIF. : PART 1 27(1006) OS-OCT-76 10:13 PAGE 71 3 9070 
“76 1 ProcRaM SPECIFIC "Bese VED LSearrone 


3538 O0S64O 90000 ;TEST 16 


} : 1 ‘7 
Sea5 Betas Bessie Be i sTeet 34 
l WORD 1 


3841 005646 00000 


;TEST 21 


AbIST OF DEFAULT ITERATION COUNTS FOR ALL TESTS 
bFLTsT: 


3 8 Ts 





| y : Teer ON 
ate t i TEEt Os 
| "WORD 3 ireeT Be 
WO z :TEST 07 
| . WOR one TEST 10 
| W 5 ‘Teer Ti 
"WORD 2 ITEST 13 
"WORD ireeT 13 
WORD ireer 15 
| WORD ireeT is 
] TEST 1é 
| io treet [3 
| "WoRD «10 irEeT 30 
"WORD ‘TEST 3] 
| 20002: NMTSTS=<DFLTST-TSTLST> “2 STOTAL NO. OF AUTOMATIC TESTS 
see 
«Ses “OPERATING PARAMETER LIST 
| S25) fests 90 PRnLST WORD 0 sFIRST CYLINDER 
re Meri eed rei HR HES Mere 
5275 O0E71e 00001 1c: = SWORD TAS I NSER SREREMENT 
3674 005720 900000 FT: ‘WORD O TEIRST TRACK 
| 7s mos7ee poonne Lt: ‘WORD 2 iT AST TRACK 
327—  D0e754 Tt: ‘WORD Tf STRACK INCREMENT 
Seon Beesse pore rm i ob oF IRST SECTOR I oBcOFE) SEETOR FET 
es Sere shoots ecu eon ey chia 
22; Boesse Sopset fe: = tWorD sj STOR INCREMENT 
606746 H00000 B?; ‘WORD 0 ‘BATA PATTERN SELECT W 
S63 DOS7¥2 063526 MA: “WORD RWBUF te eITS OF PHYS NEM” DDR. (BITS 0-15) 
_ 3605 908745 60000 "WORD oO ba BITS OF PHYS. MEM. ADDR. (BITS 16-21) 
SEE Q0E7H6 ak we: “WORD 403 SIORD COUNT CIF biCsO, WRO CNT 1S S836 DEC) 
Sp O0E750 cs: = SWORD Og SCONTROL SWITCH WORD’ 
Sé67 Q08762 900000 <7; ‘WORD 0 :NUNGER OF UNIT STALLS 
ee 006754 001000 Em; = “WORD »=«1000 iMAX. STALLS, TEST I 
3e66 
th -DEFAULT OPERATING PARAMETER VALUES 
2552 O0S7S& PROFLT: 
3235 O07E6 pooo00 WORD 0 :FC DEFAULT 
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brichan SPECIFIC RESERVED LOCATIONS 


iB 


—-O0 £0 


0 sFC LIMITS 
631 
0 sLC LIMITS 
632 
1 sIC LIMITS 
632 
8 sFT LIMITS 
8 sLT LIMITS 
4 sIT LIMITS 
0 ;SO LIMITS 
23 
0 3S1 LIMITS 
e3 
0 ;S2 LIMITS 
es 
0 3;S3 LIMITS 
2 
1 31S LIMITS 
2s 
0 sPT LIMITS 
177777 
“weal ;MA LOWER LIMIT 
157776 ;MA UPPER LIMIT 
sWC LIMITS 
177777 
;CS LIMITS 
000070 
;ST LIMITS 
177777 
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000 


05-OCT-76 


rye Beret 


3FT DEFAULT 


eee es weweas ae tnt oe 
m 
ma bed Ba] 
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O22. Si 


iOPERGTING PARAMETER VALUE LOW AND HIGH LIMITS 





10:13 PAGE 7e 


T 
iL Ol MA (O-15) DEFAULT 
MA (1 
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atiatiatatt 
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ovr 


i 
| 3ess 
3656 006132 
357 006136 Q4150E 
Ss ape tse aatet} 
3660 006140 O52106 
i42 114 
| i449 ii 
146 le 
Bee 
=) 
0061 1 
| 366? 006156 O5151: 
2668 906160 952120 
3653 Soeieg Bddade 
3671 OO06166 041527 
3672 006170 051503 
| 3673 006172 052123 
| 3874 006174 O4E653 
| 3675 
 «-e7— 
3677 
| 3678 
| 324 006176 
| 3651 006176 177777 
| 3682 906300 
+383 06202 | 
| 3684 006204 Os2525 
| 3685 O06206 052525 
3686 COe2i0 O52525 
| 3687 OO62l2 177777 
3688 006214 177777 
| 325 DBeesB pesese 
3631 006222 177777 
| 82 O06224 Os2525 
3692 O06226 177252 
3694 006230 177262 
3695 006232 172765 
369 O06234 172765 
3667 
 3¢9e 
=«-3e9s 
«43700 
«BES ones 
| 3703 Soesse oo0000 
| 3704 OO¢e40 00 


0009 
3705 O06e42 000000 


po a 


:QSCII PARAMETER MNEMONICS 
PEMNEM: 


H 


- PKG} SYS. VERIF. ; MACY11 27( 
dsmo8 $358 ngs. a prickan BY SPECIFIC RESERVED 


“WORD looser 


Patt /FC/ 
.ASC ALC/ 
ASCII 7ICz 
-ASCII /FT/ 
.ASC } /LT/ 
ASC /3T/ 
-ASCII /$0/ 
ASCII S17 
Baett /Se/ 
ASCII S37 
-ASCII /IS/ 
233 yay 
ita 

-ASCII /WC/ 
-ASCII /CS/ 
-ASCII /ST/ 
-ASCII /SM/ 


;DATA PATTERN OC 


batoo: 


bato 


HI-LO FREG. MIX 


172765 


;DATA PATTERN O1 


a: 


HI FREQ. PHASE MIX 


000000 
000000 
000000 


1 
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0 
906 
Och 


Etro 
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;5M LIMITS 


; TABLE FILLER FOR MA 


SEG 0072 
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DZREMC P11 


3706 
3707 


006246 


00637¢e 


0S-00 


177777 


133333 


L/RKO& SUBSYS. VERIF. 
-7& 10:03 
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Beighay SPECIFIC RESERVED LOCATIONS 


:DATA PATTERN 02 
baroe: 


DATA PATTERN 03 
batoa: 










MACY11 27(1006) 05-OCT-76 10:13 PAGE 74 SEG 0073 


LO FREG. PHASE MIXx 


. PRECOMP. PHASE MIX 


















: MACY11 27(1006) OS-OCT-76 10:13 PAGE 75 
pracRaN SPECIFIC RESERVED LOCATIONS 


133333 





MO-11-DZREN-C - RKG1i/RKOG SUBSYS. VERIF. 
OZREMC P11 05-OCT-76 10:03 


006374 133333 


SEQ 0074 









;DATA PATTERN O04 


ath ROTATING BOUNDARY PULSE PRECOMP. 
006376 batou: 
3768 006376 121105 os 
o0s40n 150442 150442 
3771 O06402 O64221 064221 
3772 OO6404 132110 132110 
3773 006406 Oss044 055044 
Be Gee ee 
414 Taeed4 0550 
"7 OO6416 O4D—42 o42642 
3778 006420 021321 021321 
006422 110550 110550 
3780 4e4 O44DE4 044264 
3781 456 922132 022132 
3 006430 011055 011055 
3783 OO06432 104426 104426 
3784 006434 O4z22] 042213 
3785 
86 
3787 
| 3788 DATA PATTERN OS 
| 3789 ROTATING CELL PULSE PRECOMP. 
| 3780 906436 batos: 
379] OD6436 OeE4ss O2g455 
| 3792 O06440 i13226 113226 
| 3793 0442 O45513 045513 
3794 OOGY44 122e45 122645 
OOE44E 151322 151322 
| 3796 Op64so 064551 06455! 
| 3797 yb2 1 3e2e4 132264 
3798 O0E454 O5S132 055132 
3798 456 ODE4ES O2E455 
3800 OO64E0 112226 113226 
3601 OOb4b2 045513 045513 
| 3802 OO64E4 lezeds 122645 
3003 WEE 151322 151322 
| 3804 006470 OE4551 064551 
«3605 O06472 132264 132264 
| 3806 Ooe474 O8S132 055132 
3607 
_ «‘3e0e 
«308 DATA PATTERN O06 
| 3816 } ALL ZEROS 
| 381i OO647E PaTOE: 
 «-3ei2 006476 op0000 og000 
_ 3813 o06500 op0000 900000 
| 3814 o0eS02 soo000 900000 
| Seis 504 000 990900 
| 3616 00650 00000 000000 
_ 3617 006510 dog000 900000 


KO6 


MO-1I-DZREN-C = RK&1L/RKOG SUBSYS. VERIF. : PART MACY11 27(1006) OS-OCT-76 10:13 PAGE 76 SEG 0075 
DZREMC.P11 © OS-OCT-76 15:03 PROGRAM SPECIFIC RESERVED LOCATIONS : 
3818 O06512 900000 000000 
3619 006514 900000 000000 
516 900000 000000 
3821 006520 900000 0000 
3822 006522 900000 900000 
3823 000000 0000 
3824 999909 090900 
3825 530 000000 900000 
3826 906532 900000 000009 
3827 006834 900000 900000 
36828 
3829 
3830 
3831 sDATA PATTERN 07 
3832 L ONES 
3833 O0&536 bator: 
3824 006536 177777 177777 
3635 006540 177777 777 
3636 O06542 177777 177777 
3837 O06544 177777 177777 
38 OO&546 177777 177777 
33 008550 177777 
49 SobEEE 177777 1 
4] 4 177777 177777 
se4e 006556 177777 177777 
| 3843 006560 177777 177777 
| «BB Dbesee 177777 177777 
sEue Bpeeee 155555 177777 
3847 006570 177777 177777 
ze4e 006572 177777 177777 
3649 006574 177777 177777 
3250 
385 
| ;DATA PATTERN 08 
SHIFTED 1 IN FIELD OF ZEROS 
| 3854 006576 betoe: 
3855 006576 oD0001 900001 
| 3856 O06600 o00002 00002 
3657 OObEGE 000004 00004 
| 3858 O06604 o000i0 000010 
3853 OO660E 900020 000020 
| 3860 006610 o00040 900040 
| 3861 O06612 900100 000100 
La 2 OO€614 900209 000200 
| 3663 006616 000400 000400 
3864 0 001000 001000 
S O06&22 902000 002000 
4c: sea 
| 
=«-3eee Bee ae 020009 020000 
| 3869 O06632 oO40000 040000 
2870 06624 100000 100000 
| 3871 
3672 
38723 


MD-1 yO Bs 
DZREMC.P 


- RKGLI/RKOG SUBSYS. VERIF. ; PART MACY11 27(1006) OS-OCT-76 10:13 PAGE 77 SEG 0076 
O5-0CT-76 10:03 PROGRAM SPECIFIC RESERVED LOCATIONS : 


:DATA PATTERN 09 
SHIFTED O IN FIELD OF ONES 
baroo: 





:DATA PATTERN } 
ALTERNATING O-1 
batio: 

25 S2 
052525 052525 
525 052525 
052525 052525 
052525 052525 
os2525 052525 
2525 052525 
052525 052525 

052525 05252 

052525 052525 
052525 052525 
052525 052525 
52525 052525 
052525 052525 
052525 052525 

os2525 0525 


;DATA PATTERN 11 
ALTERNATING 1-0 





bari: 
lesese 125252 
les252 125252 
etece 125252 
2 125252 
les25e les252 
les252 125252 
le5e52 125252 
125252 125252 
125252 125252 
2 


— ne sn Tc ss 00 ene eee emmemmssee ee 


Oa) L-OgRGR-C 
DZRENC. 


030 
007032 


- RKE Lemke 
0S-0CT- 


164616 


MOb~ 


MOY Be 1008) O5-0CT-76 10:13 PAGE 78 


SYS. VERIF, ; PART 
8.23 D LOCATIONS 


PROGRAM decirtc RESE 
125252 
e 
1252Se 


:DATA PATTERN le 
SHIFTING ZEROS AND ONES 
batie: 


07 
177777 


:DATA PATTERN 13 
COMPOSITE ROTATING 
bat13: 


164616 


‘yepees PATTERN 14 
PSEUDO-RANDOM (COMPUTED BY PROGRAM) 





SEG 


0077 


cS 


NO 
ie 


MD-11-DZREM-C - RKELI/RKOG SUBSYS. VERIF. : PART 1 MACY11 27(1006) oF -OCT-76 10:13 PAGE 79 SEG 0078 
D2REMC.P11  OS-OCT-76 10:03 PRAGRAN SPECIFIC RESE bavED ATI 
3986 007076 PATIY: 
3987 007076 900000 WORD 
2388 997199 000 - WORD 
EE cate ate . WOR 
981 0071 0060 WORD 
332 007110 000000 - WORD 
$334 7114 pponee HOR 
3995 007116 o00000 WORD 
S3q7 Gosise popooD “HOR 
pecise = OepOre “WOR 
3999 007126 900000 “WORD 
4 007130 900000 WORD 
4001 007132 900000 WORD 
4002 007134 900000 “WORD 
4903 
4004 
4005 “USER-DEFINED DATA PATTERN 15 
4006 007136 * pATIS: 
4007 007136 072307 072307 :WORD OO 
4008 007140 135143 135143 :WORD O1 
woe posing | teeeSR 19280 WORD 03 
il sce 7a A5SE7q WORD O04 
4O12 OO71S0 oO35b46 035646 :WORD OS 
016723 016723 :WORD O68 
4014 007154 107351 107351 WORD 07 
4015 007156 143564 143564 :WORD 10 
4016 OO7160 061672 061672 :WORD 11 
4017 007162 930735 030735 WORD 12 
40i8 OO71E4 114356 114356 ‘WORD 13 
4019 OO7166 O461E7 046167 ‘WORD 14 
4920 007170 12307 123073 :WORD 15 
4021 007172 15145 151453 WORD 16 
4022 007174 164e16 164616 WORD 17 
4023 
aoe 
4 7467 MINLO1=t024375 ;LO BITS OF SPEC'D MIN ROT. LATENCY 
so cc a ye ae Oe oe ar tae 
4029 900000 MAXHI l= :HI atte OF SPEC’ MAX ROT ATEN cy 
woe 50090 MEH SeOe AT BITS OF SPEC" tax Max 1 EYE See Th TIME 
ee ot a are eee ee 
4034 022370 MAXLO4=?tDS464 in Bt OF SPEC ep MAX 4 aie ey CYL PRE TIME 
4035 900001 MAXHT4= :HI BITS OF SPEC’D MAX 410 CYL SEEK TIME 
4035 002734 RNDSHT=1D1500 ;SHORT RANDOM SEEKS =_1500( 10) 
4037 016514 RNOLNG=tD7500 LONG RANDOM SEEKS = 7500(10) 
4038 000632 LSTCYL=632 :Last CYL. = 410¢10) 
4029 oo0002 LSTTRK=2 :LAST TRACK =e 
4040 000365 ALNCYL=365 SALIGNMENT CYLINDER =24S(10) 
404] pooog2 BSERR=BIT1 :BSE ERROR 


ee - - - ~ A ee eee 
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BO? 
MO-1I-DIREM-C - AKEJL-RKOE SUBSYS. VERIF. : PART MACYIL 27(1006) OS-OCT-76 10:13 PAGE eC s€5 0079 
DIREMC.P1] | OS-Oct-76 10:03 beigram SPECIFIC RESERVED CTZETIONS 
wose 00004 HVRCERSBIT sHVRC_ ERROR 
| 443 00019 OPIERR=SIT :0PT ERROR 
445 0cs20 DCKERR=SIT4 DATA CHECK 
4345 05040 ECCNC= SECC NON-CORREC TABLE 
SOS ser ay oem oe 
wise 00400 LEV2ER=8178 {CEVEL TWO ERROR 
448 001000 C=BIT9 “BAD SECTOR FLAG 
456 009 WOTOS=BITIO : TWO Me OUTS 
mo eae Ponavreattis i ae Y SHER PORT 
“55 i One RsEeTiE On Erne Reve a FLAG 
ne po7i7e gus tte 3045 DZREM: .ASCIZ <15><12>/MD-11-OZREM-C/ 
+S ‘és =) . 
| wOS? OO7e12 pest 6} 
«Se BESEIE BSES48 Seid65 02113 suRvVER: .ascIZ 8 - RKGLI/RKOS SUBSYSTEM VERIFICATION : PART $ 
4059 ores 030461 051057 03011 
| 4550 SOrese Dee 62823 ait 
| 4 ; Bases3 $E52 
Be 7354 Peart O44524 047117 
ie ae 
OS Ee: cs upg 
' $0 : i PORT $ . ow 
ine pee ans osoiss ine poeta LSTMEM: .ASCIZ (Fg: <2) < 12> Last PHYS MEM BDR = 
4070 007316 Oedle3 d42515 Becris 
| pd 907324 420) O20i22 020075 
4673 eee 117 O42526 O46122 OVLODR: .ASCIZ /OVERLAY LOADER ? (Y OR N) # / 
| 4074 007340 54801 p46040 040517 
= 53 Seo ace poese. O47440 Oevle2 
4077 007262 O24Si6 O25040 00040 | 
uo7e 007370 O0S0IS O40S20 O4 PRMINP: .ASCIZ <15><12>/PARAMETER INPUT MODE/<15><12><12> 
| «det Desa6e Sasi? Gesese GESIES 
1581 Dorsie pureis Sa5e5q O05015 
| ues Spouse popes 033060 O41D40 RKBADR: .ASCIZ /RKOG BUS ADR = / 
| 4088 007430 051525 O4O440 051104 
rial Soraae Saeess 3040 RKVADR: .ASCIZ /RKO6 VEC ADR = / 
4087 041505 O40440 951104 
wOe8 007456 O36440 Oo0040 
4ORS DO74E2 O4SS22 033060 OSOOYD RKPRTY: .ASCIZ /RKOG PRIORITY =/ 
456 007475 Daisee 651117 O52111 
| sb Soreoe 353 020122 020075 SWRMSG: .ASCIZ /SWR = 
| 4094 607511 O46 O47040 OS2S0S NEWMSG: .ASCIZ / NEW = 
wes ig 900040 
| 4096 Beoess prente OS1104 OS3111 DRVSEQ: .ASCIZ <15><12>/DRIVE(S) = / 
wOS7? 007530 Oe4i0S Oe4s23 036440 
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CO? 
27( 1008) 


uw 
=z 
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oe 
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oO 
me 
ui 
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/ 


ys 


D WITH ALIGN PACK/<1§><1l2> 


/IF XXDP PACK ON DRV 0, TYPE “Y <CR>", & REPLACE IT : 


<15><12><12>7## NO DRIVES TO TEST/<15><1e@> 


/PRESS “CONT” WHEN RDY/<15><le> 


/MALT REQUESTED/<15>< 12> 


/WRITE-LOCKED/<1§>< 12> 


/DRIVE 
‘NOT READY/<15)<12 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCTT 
-ASCIZ 


REPLPE: 
NOORTS: 
CNTRDY: 
HLTROD: .ASCIZ 


@ NTREDY: 


e 


pis tae NXDRIV: .ASCIZ /NON-EXISTENT/<15)< Ja 


a 
042504 ALNPAK: 


O2ess0S WRTLOK: 
042105 


020108 BADORY: 
ate 


i 


Xs 


oa 
li; 


S2ili 
045503 


104 osehhd 


sare 


oe 
Ses 


pees ae. SF, 


ee ne ee eee ee 


“DRIVE O IS LOAD MEDIUM’<15>< le 


-ASCIZ 


> 
Bist 


«15><«12><1@>770 TEST ALL DRIVES TYPE “A” <CR>, ELSE <CR>/<1S><le>v® + 


(1$><12>/L = LIST TESTS/<15>< le 


-ASCIZ 
-ASCIT 


020117 ALORVS: 


040440 


O3644O TSTMOS: 


006523 


mre 


ow wu “4 
SUNS RADBES 
oe ee oe oe ee ee ee ee oe oe he | 
OONOOOMOOIOOOM 
BBSSsssssassacoank te te te ee te tet 
NOINOOOOOOOOOWOONIOOOAOMOMONO 


PUTUTTAVTLATAIOTLAtAtiN a ta tia tae tas ts ts Las ti Tar pe 


eebetelshedekedeteiete peter dudededetetettetetetete-t- eo te ale ne a ee A RA ree roe toe oe Doe oe Doe oe Do) 
wa77777773 797797977979 97979779939 979T977979 39 799779797 979777779777 


SES 008: 


= 
- 
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DO? 


27 ( 1006) 


VED LOCATIONS 


Yli 
R 


; PART 1 


PROGRAM SPECIFIC RE 


VERIF. 


vs. 


ns rm re eee 


/# 7 


+3. 
oe 


1€ >< 
ee 


. ay] 
= — 
a a 
* ~ = badd 
. ~ nan . -« 
a ° = = ~ x 
~ ‘ rf i ~“ ~ La) * 
wn ny} Fr} wm w = a = 
ay 4 -4 -« “ im w 
x : a nd x . in = = 
lo -« © aa w -«@ a ~ xz 
~ wm ~ - © ad v ~ am i 
x = om a ae an in s 
ef « = “4 p= = oO 
wn 5 3 a rt} a Y cu of wn 
—_ a - ~~ wm tal 
“4 ; os - aes - = 5 aA oo o bs 
" £ 3 " a — r= — ee » . 
wm = _ ~ aa i 
-. ge Reis I. . @ gp § z 
if i eet § oe US = 
rc | ne 5 e- ag % tal b © 
| \ 7 ~ c 4 vig ai . 4 Qa 
ca ny] u ay] ou a a 5 «a ou s 
Go o- “ tal “ “4 7} & “4 74 3 
" " = sae in ~ " " " aa i “ 
oO a me os o wm - 4 $ 
_ ~ ~ w ~ ~~ . ~ ~ ~ ~ 
oe ta ™ t\ ™ ~ o« -« ™N ™N ™N ty 
3 o o © oO oO oO oO Oo Oo oO oO 
i @ 2 e e 2 2 2 & e 2 
a in >) z= ui ow Pas 
3S 8 ka a a Oo 
oat a £ 3 a 
tas 4% - tal a. a 
8 PPNes 2h ae Bea San poy sugsErgeasa Pak 
4 7TC)-< sis ——e re —T- SOS aes 
eee tot oe as iz - BRM ere ia oe BETS Be 
4 AssS wey 6 4444 $ 58 24448 SAS 
0m Tr “eo OwvuoTwwusro-O “TT 
en Tem Fees ste at tere foaahauuce St 
Biel BOs RAS P Oty aaah a ae saat ie STRAY BN 
c 8&4 aay ]Ysy SSSSSS4ss BSS 
peaitetety att 
Gow =+ te te 


tete@ 


iid 28228 We Ru wide Reo we 
PIMA Riri Mutya uianadied aaa Ana oa ene eee 


eae eae ae eae ae ee Dok De eee ae ee ee ee ae ae oe Sep, Be ee eee Dee ae re oe ae eae eee rer ene eae ree ae eee ree ee ee ree ee er ee ee ee ee ee ee ee ee 
QO OO OINO NOOO OOYIOIOY WOOO OOIOINYIOOMIOIOIVIOVWIOKOOVOOKOOOMOOoOooO0oNO 


2 RA RTBIYGS BRB MOOT OO PL RT BERT RRA IT RES Be 


Se ee ee oe ee eg ee ee eae Doe oe eae oe ee ree eae ee ee ee ee ee ee ee ee ee oe ee eee ee ee ee eee ee ee ee ee ree ee ee ee eee ey 
v77977777777777777779777707r(9F 9977777977197 9797979779 979797T77 779979 FTI TT 


“ae eg ae gt olan Seer 


me er ne ee ne ae eee” _ ----- -_- -_— --—— -_—_—- ~~ _-— ~~ —-- 





MD=21-DZREN-C - RKELIVRKOG SUBSYS. VERIF. : PART 1 
readies x tae genes 8.85 PROGRAM SPECIFIC 
4210 010650 900 
#211 1268! 7 rey OS1440 SECNLI: .ASCII 
4 9440 NOTALD: .ASCIZ 
| Si Gee Ros Sur ane 
ig ee ™ 7 : 1440 SECNL2: .ASCIZ 
4218 51071 oussas TRKNLW: .ASCIZ 
4219 010720 oO37124 OS2114 000 
4220 010725 O52 Se0dse 953440 WCBIG: .ASCIZ 
4 in? 133 B49 
: 157 1 64 Li? 
| Sess GiSce4 BooRie . 
| “355 10756 754 D4PO4O O4ZI105 DFOLES: .ASCIZ 
ae55 ree: raat Sestis BerTo 
wese O11 46501 Oe6le3 Os2040 
4223 011006 950131 O20105 020104 
4230 O11014 O41474 O37122 Oe00sY 
4231 O1i022 O4610S O42523 O36040 
| 535 Biibe Peiics Ooek7e desde 
4224 O11040 005015 051525 051105 PFIFTN: .ASCIZ 
| 4335 O1104— O420Ss O43105 047111 
| up 11054 42105 052101 
ae3e L1b%5 saad aE cise Saocis 
| 4239 O11 OCSOIS O4751S O44SO4 SELPIS: .ASCIZ 
4240 O11104 954506 OS0040 052101 
HE UHL Giese paige cao 
| qSa5 gyetee Reoees Boe Peete mDFYIS: .ASCIZ 
we44 111394 O43111 020131 O40520 
us4s Si1ike 052124 051105 O20116 
4246 O111S0 O32461 O20054 0s4 
| 4247 OLLIS6 O4e520 O4E44O 
| He QINTe4 Os1103 ge440 
«4298 «<O1li72 OF1615 Gedi0s o41y74 
| HES 01100 037122 005015 d200s2 
| apse O11 6 1 116 ENTPAS: .ASCIZ 
| 4B Bit 14 gsiite BaSo4 t5 
«4254 «O1ieee 047490 O20106 O405e0 
4255 011230 051523 051505 o24040 
«4256 O11E36 026461 033467 933467 
4857 ot ieN4 Dea4e? 035040 0501S 
upg 5 t5ze opFe % O20052 DROPDR: .ASCIZ 
W260 Oliebe O4e040 O47S22 120 
4261 011270 O47111 O20l07 051104 
426s Olie76 OS3111 020105 Oz00ss 
4263 O11304 030062 0424490 0511 
| 4265 O11312 OS1117 Ooese3s 00001 
426 011320 OO5015 052012 OS150S YTSTORN: .ASCII 


ne ee eee 


MACY11 27(1006) OS-OCT-76 10:13 PAGE 83 SEG 0082 
RESERVED LOCATIONS 


/*#*e SO>Si/ 
7 NOT ALLOWED/<15><12> 


/*#*# SeS3/ 
/#% FTOLT/Z 


7#® WC OR MA TOO LARGE’<15>< 12> 


/TO DEFAULT ALL PARAMS, TYPE D <CR>, ELSE «CRo/cl1S)<l2># / 


(15><12>/USER-DEFINED PATTERN 1S :/<15><12> 


(]5><l2>/MODIFY PATTERN 15 :/«15><12> 


/TO MODIFY PATTERN 1S, TYPE M <CR>, ELSE <CR>/<15><l2>-# / 


(15><12>/ENTER NO. OF PASSES (1-77777) :/<15><lerv® 


(15><12>7#% DROPPING DRIVE - 20 ERRORS/<15><1le> 


(15><12><12>/TESTING DRIVE / 





MO-11-DZREMN-C - RKELI/RKOG SUBSYS. VERIF. : PART 1 
Bemenc-Pil os-oct=7e 18:65 PROGRAM SPE 
a oS Bae 
4 1] 00 ORVNO: .ASCI 
Sa RR TES BR! ode Bn a 
ee 
| 4e22 o11364 oH0503 OS2122 O200S6 CART: .ASCIZ 
3355 ELIE5S ound e GBAige GEGESE SERN: -ASCIZ 
“E75 311376 SOs01§ O40S06 052193 FACTBS: .ASCIZ 
| Be BEAT ble Gicass ose] sorves: .ascr 
| 4279 911423 152 O42101 OS144O0 BDSECT: .ASCIZ 
4220 g1430 } o47524 O51S22 
| 4281 11338 sosdis 006 
“8 Sits O40 047040 O47117 NOFALS: .ASCIZ 
| 425° 11450 0001 
es 
4285 ;MESSAGES USED 
4285 O114S2 OeS0S2 o20040 O47516 AOCLKS: ASCII 
4287 «O1I4EO «O41440 047514 045503 
4288 OLI46E O26440 O20040 O44524 TIMSKP: .ASCIZ 
| 4289 O11N74 O44515 043516 Os2040 
4299 O11s02 O51505 Os] 953440 
4291 O11510 O46111 O20114 O42s0e 
Se fies Re Gee Ag 
4255 beh O52 O20 p¥sda5 CLKFAL: .ASCIZ 
4295 O1i1536 030527 O=0061 Oydso6 
«$29 «O11S44 $046111 051125 00105 
| 4297 O11652 OOSCIS 04 040524 ROTIMS: .ASCIZ 
ws9e O115E0 O44524 047117 O46101 
4299 OLI566 Osed4o oO4e511 Osi505 
4300 011574 o0s015 000 
4301 O11601 015 O40412 O42526 AVGSEK: .ASCIZ 
4302 OLIEN6 o4oSe2 O42e507 O51540 
| 4303 O116]4 42505 Oedliz o44se4 
4304 Oll622 O425i5 020123 Oo6472 
4305 011630 oo0012 
4306 O11632 OOSOIS 047117 020105 ONECYL: .ASCIZ 
4307 O11640 054503 020114 9042523 | 
4308 O11l646 O4s505 OS2040 O4e5i1 
4203 O11654 O51505 035040 dosdi5 
4310 O1j662 000 
4311 O11663 O15 O46412 054101 MAXSEK: .ASCIZ 
«44312 «<O11670 O4ES11 O4eses 951440 
4313 OL1E76 O42505 020113 O44s24 
4314 911704 O42515 020123 O06472 
435s 011712 9so0012 
4316 011714 O25052 o4 053522 FORWRD: .ASCIZ 
4317 011722 051101 O20104 O44504 
4318 011730 O42522 062103 047511 
4313 011736 O25116 o06452 oo0012 
| 4320 O11744 025052 O42522 O4eS26 REVRSE: .ASCIZ 
+4321 O117S2 OS1S22 Oedics o44so4 


oe ee eS 









FO? 


CY11 27( 1006) “OCT-76 10:13 PAGE 84 


en, 
CIFIC RESERVED LOCATION 


f #eYHoC12> 
bf 


/DRIV 

‘CART. 

7SER. NO. 
€15><12>/FACTORY / 
(12>/SOFTWARE / 

/BAD SECTORS :/«15><le2> 


/ NONE/Z 


IN TIMING TESTS 
7%*® NO CLOCK/ 


4 = TIMING TESTS WILL BE SKIPPED/<15><l2> 


/#% KW11 FRILURE/ 


¢15><12>/ROTATIONAL TIMES :/<15><1le@> 


(15><12>/AVERAGE SEEK TIMES :/<15><12> 


(15><12>/0NE CYL SEEK TIMES :/¢15><1l2> 


(15)<12>/MAXIMUM SEEK TIMES :7<«15>< 12> 


/R*#FORWARD DIRECTION##/<15>< 12> 


/**REVERSE DIRECTION##/<15>< 12> 








GO? 
BORA LLEYDR. BHPSYS: VERIF ns Bon sbecrerc RESERVED LoceTIONe © {0:13 PAGE & sE3 0084 


~11-DZREM@C - 
ee toe Sh 0s-0¢7- 
4322 O11760 O4eS22 052103 047511 
4323 011766 025116 O064S2 O00012 
| 4 11774 025116 O20076 MINEG: .ASCIZ /MIN =. 
| 4 15 OS4101 O36440 MAXEG: .ASCIZ /MAX = / 
é 
4328 612012 053101 020107 020075 AVGEQ: .ASCIZ /AVG = / 
i358 piste a MICROS: .ASCIZ / US 
d33f 3is3s2 te paaies o30488 BES Sus Beets / tg 128 BELOW SPEC’D MIN OF / 
4332 012032 o34062 O41040 046105 
4333 012040 053517 051940 O425e0 
Se HBS Bee Bue gee 
| BBE 315053 O47440 o33} 031061 ABOVE: .ASCIZ / OF 128 ABOVE SPEC’D MAX OF / 
| 4337 012070 020070 041101 053117 
4333 DLSION BaSON? Paces Bediat 
4346 ptei93 sors be8i08 ts 
4341 012117 — O40 043117 032040 ABOVE: .ASCIZ / OF 410 ABOVE SPEC'D MAX OF 8000 US/<«15><12) 
434 oi 124 530061 40 
434 16132 OY i440 
43445 Ole! 0109 O40515 
| 4345 GI2146 020130 O43117 O34040 
4346 012154 030080 051 
| 4347 Ole162 O0S5015 000 
4548 pieigs O40 043117 030440 ABOVES: .ASCIZ / OF 128 ABOVE SPEC’D MAX OF 75000 US/<15><12> 
4345 012172 o34062 O4D440 3 
| 4366 012200 O42526 Os1440 O4e5e0 
+4351 012206 023503 O20104 O40SI5 
| 4353 012214 020130 043117 O33440 
| 4353 Oleee2 030065 0 
4354 Ole230 O06523 OO0D1e 
4355 Ol2034 O20040 OS1440 O42S5e0 SPCDMX: .ASCIZ / SPEC’D MAX IS 38000 US“<15><12> 
4356 Olee42 Oe3503 20104 O406515 
4357 512250 020130 51511 031440 
_ 4358 O12264 006523 00012 
| 4360 012270 O32062 O33463 O20065 LIM: .ASCIZ 24375 US/«15><12> 
| 4361 012276 OS1525 005015 000 
4366 012303 O62 022065 O32462 LIM2: <ASCIZ 25625 uS/<15><12> 
| 4 #3 012310 os2440 006523 O000l2 
| 4365 912316 S052 920049 040503 BADEI2: .ASCIZ /## CANNOT READ BAD SECTOR TRACK! /<15)< 12) 
«4366 (012324 O97 116 05211 051049 
4367 Olesse O40S 0104 
| 4368 012340 020104 3 952103 
| 4369 O12346 051117 Os2040 O4oS22 
| 4376 012354 ONS603 Od644 1 
| 4371 Ole362 O41&3—6 O0S01 CNTRLC: .ASCIZ /1€7¢15><12> 
4372 Ole367 136 006532 OO009l2 CNTREZ: [ASCIZ /t2/<15><le 
4373 12374 051136 Doses noone CNTRLR: -RECIZ 717 (16> (18> 
i ie > 
4375 316 ou3e3e saat BAS ENTRLG: ese /t we4e> c43) 
4376 012413 01S 005012 000 CRELF: ‘ASCIZ <15><12><1e 
4377 012417 134 000 EKSLSH; [ASCIZ /\7 


a 


“J 1-DZREM-C - RKEL! 

peREMC.FLI 3en net 
4378 012421 oss 
4373 pistes ree 
se Gist gH 
4382 O1e4=7 40 

4382 912430 000040 
4 012432 o20040 
4386 212426 047527 
4387 ee 3644 
Sieg BtE489 
4390 

| 

43e5 

| 4364 

3a 0124 ! 

| 439 aiey 1Saese 

«Sse EGS A082? 

| 4400 O1zes00 nats 

| 4401 012502 012737 

| 4402 0125106 Odo414 

| $403 

| 4405 012512 112737 
4405 012520 112737 

| 4a0— O12526 

| #407 


| wos 612536 105037 
| ui 
441] 012542 012737 
| waLB 
ee sk 
4414 O12550 012706 
| wMisS 012554 OOso2¢6 
| 4416 QO1e556 022706 
4417 «012562 001374 
| Hig Oleses 012706 
| 4430 012570 012737 
4421 012576 012737 
wee O12604 012737 
u4e3 O12b612 012737 
4434 012620 012737 
| M4e5 Q1E686 012737 
u4ee 012634 012737 
4427 «Olz642 012737 
418 Dleess 013737 
| 4428 O1e65— 005037 
4430 Olee6e 0050 
4431 Dieses 11737 
| 4432 613674 015737 
4433 012702 012737 


900 
*-040 


012702 


128K 5 sess. VERIF 


000040 


o00d4e 
000C ie 


003126 
003106 
093106 


177776 


7 
PART 71 OS-OCT-76 10:13 PAGE St SEG cOss 
brickan SPECIFIC” PECEAVED 1088 i + 
COMMA: -ASCI2 /,/ 
SPACES: .A ,. # 
PACES: . ea fe 
PACE3: .A Fe 
SpacE2: .ASCII 7% / 
SPACE1: .A asciz ff 
PRMBUF : ENE IZ / 
WORDSP: .ASCIZ “oR / 
3 = / 
Beunks: -8 a Fes ete 4% / 
PRMPSP: ; /) 
EVEN 
FSTRT: CLR MOFLAG ;SET FLAG FOR DEFAULT MODE 
4 KLEE DULACS :CLEAR DUAL-ACCESS FLAG 
CLRB sé CL AR ERROR COUNT FOR RESTARTS 
CMP SEV TST, aad2 :SEE IF EOP RETU RN ADRS = DRVTST 
BNE 4 BR IF NOT DRV tet 
MOV SNEVIPAS, G82 :SET RETURN ADRS = NEWPAS 
4S: BR CMSTR : PROCEED 
DASTRT: MOVE #1, DULACS :SET FLAG FOR DUAL-ACCESS DATA TEST 
MOVE #1 /MDFLAG i SET FLAG FOR PARAMETER MODE 
oF CMSTRT PROCEED 
PSTART: MOVB $1, MOFLAG ;SET FLAG FOR PARAMETER MODE 
CLRB  ouLACS :CLEAR DUAL-ACCESS TEST FLAG 
CMSTRT: *BLOCK ALL INTERRUPTS 
SEL EAR INIT 12 E tie Gren Tabs BREA 
+ MOV #SCNTAG, RE Pats LOCATION TO BE CLEARED 
CLR (RE )+ ‘CLEAR MEMORY LOCATION 


CMP #SWR,R& ;;DONE? ° 
BNE 6 ;;LOOP BACK IF NO 
#STACK, SP ::SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
MOV SSSCOPE SEIOTVEC ; :I0T VECTOR FOR SCOPE ROUTINE 
MOV #340, a8 LOTVEC+ VEL 
MOY #SERROR, ate NTvec’ EMT VECTOR FOR ERROR ROUTINE 
MOV #340, J8EM 
Mov SETRAP. JeTRAPV Ec} - TRAP VECTOR FOR TRAP CALLS 


VEL 7 
:POWER FAILURE VECTOR 

MOV #34 DaPuRVEC +S leet’? 

MOV SENDCT,SEOPCT 3; SETU 5 ENn-oF-PROGRAN COUNTER 
CLR STIMES js INITIALIZE NUMBER OF ITERATION 


CLR SESCAPE ;;CLEAR THE ESCAPE ON oo ADDRESS 
MOVB #1, SERMAX 73 AL OW ONE ERROR P 

MOV #. , SLPADR ;INITIALIZE THE LOOP ADORESS FOR SCOPE 
MOV #. , $LPERR :;SETUP THE ERROR LOOP ADDRESS 
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44 +: FOR @ HARD SWITCH REGISTER. IF ND OR IT IS 
a4 ieize 8 eee FORA p SCP Taede suk How i: EGISTER. 
we Tea pies See 0004 ret S SeERRVES. Br 
i é .* 
i232 3 533 Biecse ag. 38 ebb ny = SW Ee es oF Veer SWICH REGISTER 
4439 012730 012737 177879 001342 MOV sO ISP DISPLAY A HARDWARE DISPLAY REGISTER 
4eG5 312736 2 l 166174 CMP #-1,aSHR iter § T0 0 REFERENCE HARDWARE SiR 
444] 612744 O010le SNE & Ht Ae TIMEOUT TRAP OCCURRED 
peeerey BND TH ROWARE SWR IS NOT = -1 
wu43 012746 000403 3k S$ H IF NO TIMEOUT 
4444 12750 O12716 012756 64S: MOV #65$, (SP) Ho UP FOR TRAP RETURN 
we cers piers? 176 OO114O 65S Ro :POINT TO SOFTWARE SWR 
é b> i y?? 
i238 513764 £3 8 Betti MOV asia te Ris 
ae 012772 512637 000004 bE$: MOV (SP)+, SRERRVER " PRESTORE ERROR VECTOR 
4450 0127 095037 001326 CLR SPASS >;CLEAR PASS COUN 
44st 3 b3e737 090290 001341 BITS  wsAPTSIZE,SENVM ii TERT USER size dnoes APT 
4452 01301 1403 BEG 67 YES,USE NON-APT SWITCH 
4453 013012 6012737 001342 001140 MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 
4454 013020 67S: 
4455 013020 o0000S RESET sCLEAR THE UNIBUS 
4456 013022 012737 900006 o00004 MOV #6, JRERRVEC :SET TIME-OUT VECTOR 
| 4457 013030 905037 990006 CLR aaERRVEC +e 
4458 013034 012737 Oebl4e 900114 MOV DaMEMVEC :SET MEM PARITY TRAP VECTOR 
| 4459 O13042 012737 O00340 O0011¢6 MOV sR? a ;SET TRAP PRIORITY 
4460 013050 604737 d26dse ISR ENECSR Bea! EMERY PARITY CHECK 
4461 013054 112737 000144 oo1115 MOVB 4) a5. ere MAX ERROR CNT TO 100 FOR SSCOPE 
w4e2 012062 106037 d03120 CLRB  =ORVE pee :CLEAR ERROR COUNT FOR CURRENT DRIVE 
_ 4463 013066 112737 000001 003136 MOVB #1, HLPOVL :SET HLP FILE OVLD INDICTR 
4464 013074 109401 007176 TYPE ,D2REM :TYPE PROGRAM I.0. FOR PART 1 
; 4465 013100 104401 CO7216 TYPE ,SUBVER 
| W4H— 013104 104401 007273 TYPE PART] 
4467 013110 105737 003137 TSTB  NOTYPE ;SEE IF OPERATOR NOTE SHOULD BE TYPED 
4468 013114 O01004 BNE 39S R IF NOT 
4469 O1l3ll6 104401 o62s26 TYPE NOTMSG : TYPE OPERATOR NOT TE 
44796 013122 105237 903137 INCR  ANOTYPE :SET FLAG FOR NEXT TIME 
| 4471 O13126 105737 003126 398: TSTB DULACS :SEE IF DUAL-ACCESS DATA TEST 
| 472 013132 001402 BEQ 408 BR F NOT 
— 4473 «013154 10440] 010571 TYPE ES TYPE “* DUAL- “ACCESS DATA TEST =” 
| 4474 O13140 012737 025170 O00060 40S: MoV BKEDMBL JSTKVEC :LOAD VECTOR FOR ke 
4475 013146 012737 000200 o00062 MOY #PR4, JaTKVEC+e SET KBD PRIORITY 
7 Oisi4 012701 903020 MOV RKvVEt. RI :ADDR. OF RKO& VECTOR STORAGE 
ae} 12160 612721 O4450 MOV #I. INTR, (RL)+ ;SET IT TO. RKOE ANDLER 
| 4478 O13164 g1s71 002032 MOV RKPRI, (RL) :SET RKO& PRIO RITY 
4479 013170 012737 O25762 oodeso MOV #KTERHD, JRMMVEC :VECT FOR KT11 FAILURE 
| $480 013176 012737 000340 900252 MOV #PR7, JSHMVEC+2 SET PRIOR. = 7 FO 
4481 012208 105037 903110 CLRB sO TSTIAG ;CLEAR “RUNNING TESTS” FLAG 
4465 O132i0 012737 000000 177776 MOV #PRO, J8PS ‘ALLOW ALL INTERRUPTS AGAIN 
«4483 O13216 012701 005222 MOY #PRVEMD,R1 :ZERO OUT PREVIOUS COMMAND 
4484 013222 012700 O0000E MOV #6, RO :SET COUNTER 
4485 013226 O05) 425: CLR Bie :2ERO A WORD 
4486 013230 005300 DEC RO 
4467 913232 001375 BNE 42g ;BR IF NOT DONE | YET 
| 4486 013234 005037 oossc2 CLR STALLS :DON’T ALLOW STALLS YET 
4483 013240 0047327 Oe5é4e ISR PC, GTSWRG :OPEN SOFTWARE a FOR MODIFICATION 
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4490 013244 012737 176543 052134 44§: A th oA SHINUM ;INIT. PSEUDO-RANDOM NOS. 
a OiseS2 Ole737 123456 052136 
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;CHECK F oR RESE ¢ F Sl p OCK, AND SET of Laas 
er a8 ig c ENThe Bc ork EL 


4463 013260 105037 003122 
wuQ4 013264 105037 003123 DOT HINT, TIMING rests FLAG 
4435 13270 012737 013330 oo0004 nov res, o04 SET TINE OUT ERROR VE ouECTOR 
sues Bizses [52555 a8stz thee Pclice Beclin StF Cs 
4498 913308 013700 003152 MOV PCVE 5 VECTOR ADDRESS 
4493 013312 012720 032232 4S: MOV Asoc ORo)+ SADOR Kul brock SERVICE ROUTINE, 
4500 013316 bie710 000340 MOV #PR7, (RO) ‘SET CLOCK HANDLER PRIORITY 
4501 01 33ce 105237 603123 INCB © DOTIM :SET FLAG TO ALLOW TIMING tests 
4502 013326 600414 BR 9¢ :BR TO CONTI 
4503 9133 2 6$: CMP ($P)4 (SP)+ P= clk Nett UFR RES, I THE STACK 
4504 O1 ie 013352 000004 MOV 87S, ak4 ROR VECTOR 
4505 013340 005777 167574 TST aLks ‘Ee it -CLK PRESENT 
4505 013344 013700 O03150 MOV LCVEC,RO s LOAD KWIT-L VECTOR RODRESS 
4507 013350 900760 BR 4§ ;BR TO SET UP L-CLK VECTO 
4508 013352 O22626 78: CMP (SP)+. (SP)+ L-CLK NOT THERE RESET ie STACK 
4509 013354 104401 011452 TYPE NOCLKS Say TIMING TESTS HG T BE 
4519 013360 012737 O00cD6 oo0004 es: MOV be, 84 :SET TIME-OUT SeeTaR TO PB CATION 6 
| 4511 013366 004737 O253¢e2 ISR PC’ SIZMEM SIZE MEMORY, FIX MA LIMIT IN PRMLIM 
| 4512 013372 105737 003125 STB © XDPSVD SEE IF XX0P " PREVIOUSLY SavED 
| 4513 013376 001404 BEQ 
4514 913400 004737 oO27040 JSR PC, GETXDP RESTORE coven XXDP 
| 415 013404 105037 003125 CLRB XDPSVD :CLEAR THE FLAG 
| 4516 013410 105737 O03106 Q¢: TSTB  MDFLAG :SEE IF DEFAULT MODE 
| 4517 013414 001031 BNE 108 :BR IF NOT DEF MOD 
| 4518 013416 013700 001370 MOV ive :G VECTOR AND PRTY 
| 4519 013422 013737 001374 o03026 MOV sehse 1 reas :GET APT RKO& BASE ADDRESS 
| 4520 013430 132737 000200 001341 BITB &sBIT7,SENVM ;SEE IF NO SIZING 
| 452i 013436 601005 SNE 19$ *BR IF NO SIZING 
| 4522 013440 012700 120210 MOY #AVECT1,RO :GET DEFAULT VECTOR AND PRIORITY 
| 4523 013444 612737 177440 oo2026 MOY #ABASE,RKBAS § :GET DEFAULT BASE ADDRESS 
| 4524 013452 110037 003030 18$: MOVB  RO,RKVEC :STORE VECTOR 
wes 013456 105037 003031 CLR8 = RKVEC41 :CLEAR HI BYTE 
4536 013462 600300 swag 2SsiRO :GET PRTY INTO BITS 5-7 
| 4&3? O13464 042700 177437 BIC #177427,R0 ; CLEAR OTHER BITS 
| 4528 013470 010037 003032 MOV RO, RKPRI :STORE RKOS PRIORITY 
#5e3 013474 000137 014376 IMP ALLDRY :G0 CHECK ALL ORIVES 
4531 
4532 
+4533 -BEGIN PARAMETER INPUT MODE 
#34 012500 104401 007270 {O$: TYPE  ,PRMINP ;TYPE “PARAMETER INPUT MODE” 
| 4536 ;OPEN RKO UNIBUS RODRESS FOR MODIFICATION 
| 4537 013504 013746 903026 MOV RKBAS, - (SP) ;PUT OLD VALUE ON STACK 
| 44538 013510 104401 O97422 TYPE RKBADR ; TYPE oRKOB 
4535 013614 604737? o2ss32 ISR bc EAGETER M : Get bed RKBAS VALUE 
4540 013520 612637 0030c6 MOV (SP)+, RKBAS TORE Heh 
454] OPEN RKOE VECTOR “AQoRESS FOR MODIFICATION 
«= 4842 012524 013746 003030 MOV RKVEC, -( SP) sPUT OLD VALUE ON STACK 
4543 013530 104401 oO7442 TYPE RKYROR ; TYPE "RKO VEC QDR = 
| W544 013634 004737 dessae ISR bc GETPRM YPE OLD, GET NEW RKVEC VALUE 
4545 013540 012637 003030 MOV (SP)+, RKVEC ORE NEW VALUE 
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HEHE ar ae dee j OPEN RKOE PTERRLET HNL PRIORITY LEVEL FOR fOBlEIcATION 
4E4Q Bec abecie ASL (SP) Set t 94° INTIS 0 0-2 
4548 013552 06316 ASL (SP) 
#550 913554 006316 SL (SP) 
4551 61365 000316 swag 2s (SP) 
NEES DISEES DONTa? | Deseae Tee BEN GETPRN HYPE OLD GET NEW REPRI VALUE 
3225 bise8s tik V cps Ra 
wéSs 013672 O20027 o00004 CMP ;SEE IF AT LEAST LEVEL 4 
4udSE 913576 992414 BLT 12¢ :BR IF NEW VALUE Too SMALL 
4557 013600 O2 900007 CMP RO, #7 ‘SEE IF LEVEL 7 OR LESS 
4558 013604 003011 BGT 12 :BR IF NEW SALUES 0b L BRGE_ 
4559 013606 900356 SWAB sR GET PRIORITY INTO BITS S-7 
4560 013610 O062 ASR RO 
4561 013612 006200 ASR RO 
4562 013614 06200 asR RO 
4563 13616 010037 0903032 MOV RO. RKPRI ;STORE NEW VALUE 
4564 013622 104401 OO1315 TYPE SCRLF 
4565 013626 900405 BR 16$ 
4566 013630 104401 905262 12$: TYPE  ,BUFFO sECHO BAD INPUT 
4567 013634 104401 001314 TYPE SQUES 
| 4368 013640 000741 BR {1s :GO ASK AGAIN 
| 13642 105037 003116 163:  CLRB - ERRCNT ;CLEAR ERROR CNT FOR RESTART S 
| 571 O13646 612737 013660 oooo4e MOV SDRVTST, 842 ;SET UP DUMP MODE RETURN FROM SEOP 
4572 UPON COMPLETION OF REQUESTED PASSES 
4323 013654 000137 014470 IMP CHKLST 60 CHECK ear OF MARKED DRIVES 
; rd 
4375 
4577 To a page pe te er ln aceasta: 
457 ‘éarTL 10 - DESIRED DRIVE INPUT ROUTINE 
| 4679 ¥THIS ROUTINE TYPES THE CURR ENT LIST OF DRIVES TO TEST, 
45e0 t*WITH DRIVE NUMBERS SEPARATED BY COMMAS. THEN. @ N 
«4581 !¥CHOICE OF DRIVES IS REQUESTED BY TTY INPUT, T 
| 4588 !¥DRIVES ARE CHECK as FOR VALIDITY AND PROPER’ STATUS 
«4583 :*#AND IF THEY ARE VALID, THEY ARE LOADED INTO THE DRIVE 
| 4de4 iaLIST (DRVLST). 
| ieee Tre rrrt rrr tit itit titi tt titi itt titi ti itit itt titer ieee se 
| 45a? 13660 iis 
| 4588 013660 012708 001100 MOV #STACK, SP RESET THE STACK 
| 4583 913664 005037 905502 CLR STALLS’ ‘INHIBIT STALL BETWEEN OPERATIONS 
| 46890 013670 004737 Oe605e ISR PC, ENBCSR ;ENABLE MEMORY PARITY CHECK 
| 469] 613674 104401 010076 TYPE ALDRYS ASK IF ALL DRIVES DESIRED 
| 4692 013700 004737 030174 ISR PC RDCHRS “READ RESPONSE 
4593 013704 013660 DRVTST :(#C) RETURN ADDRESS 
| 4594 013706 013660 ORVTST :(12) RETURN ADDRESS 
| 4595 013710 013660 DRVTST :(*U) OR ERROR RETURN ADDRESS 
| 4696 013712 005700 TST RO ; SEE IF NULL INP PUT 
| 4597 613714 001413 BEQ TELDRV BR IF NULL INP 
4598 613716 622737 000101 oosz26e2 CMP #’A, BUFFO :SEE IF ALL prives REQUESTED 
| 4599 613724 od1002 BNE 4g :BR IF NOT ALL DRIVES 
4600 013726 000137 014376 IMP ALLDRV ‘CHECK ALL DRIVES 
| 4601 013732 104401 o0s262 4S: TYPE  ,BUFFO *ECHO BAD INPUT 
| 


LL 


MO-11-D2R6N-C - RKG11/RKOG SUBSYS. VERIF. 
DOZREMC.F11 05-OCT-76 10:03 


io - DESIRED ORIVE INPUT ROUTINE 


PART 1 


bax J 


é 
MACYI1 27( 1006) 


4602 013736 104401 001314 TYPE SQUES 
4603 013742 O00746 BR ORVTST 
4604 i IYPE CURRENT DRIVE LIST 
4605 013744 104401 007522 TELDRV: TYPE DRVSEO 
4696 013750 005001 an Ri 
4607 013752 005000 CLR RO 
4608 013754 012703 000001 MOV #BIT0,R3 
46098 013760 105761 OOSS7é 4g: TSTB = ORVLST(R1) 
4610 913764 601414 BEQ 8g 
4611 013786 005700 TST RO 
4612 613770 00146e REQ &$ 
si hice Hoy Qa os: oe Mee 
: 4 
4615 pi aees Reod3 ete o0ss32 age #°0> SCRACH 
4616 014010 104401 9d05532 TYPE SCRACH 
461? 614014 go5200 INC RO 
4618 14016 Ol gs: INC Ri 
4619 014020 606303 ASL R3 
4620 014922 022701 900010 CMP #10,R1 
4621 014026 9001254 BNE 4§ 
4622 014030 0095700 TST RO 
4623 014032 OO1016 NE 26S 
4624 014034 104401 011443 YPE | NOFALS 
4625 O1404O 104401 007743 TYPE  /NODRTS 
aEss 014044 012703 o00401 MOV 01,R3 
4628 O14050 012701 OOSS7E MOV #DRVLST,R1 
4629 b14054 10321 MOV R3, (RL)+ 
4630 014056 010321 MOV R3°(R1)+ 
4631 O14060 910321 MOV R3,(R1)+ 
4632 014062 910311 MOV R32’ (R1) 
4633 014064 000137 043364 IMP HLTPRG 
4634 014970 104401 001315 263: TYPE SCRLF 
4635 014074 105737 OO2106 TSTB — MOFLAG 
4636 014100 O0100e BNE 20 
4637 014102 000137 oisoze IMP LODFLS 
4638 O14108 122737 OO0013 O00041 20%:  CMPB 413,041 
4639 014114 001032 BNE i9$ 
4640 O14116 106737 ooss76 TST8  ORVLST 
4641 014122 001427 BEG 19$ 
He¥e 014124 104401 oo76S4 24S: TYPE  ,REPLPK 
4644 014130 004737 030174 ISR PC, RDCHRS 
4 o14i34 14124 24g 
4 141 141 243 
4647 O14140 014104 24g 
4E48 014142 7 TST 
4649 014144 OO1416 BEG 19$ 
4650 014146 022737 O00131 oOSszte CMP #*Y, BUFFO 
4651 O14154 60136 BNE 24S 
HE5>  O1415— 104401 007774 TYPE CNTRDY 
4653 014162 O42762 O00100 ooocoo BIC BIE, RKCS1(R2) 
4654 014170 O00000 HALT 
ES 014172 004737 027300 ISR PC, INITSS 
4E5— 014176 000137 014470 IMP CHKLST 
4657 Ol4202 104401 O124s0 19$: TYPE PROMPT 
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;TYPE <7» AND <CR>,<LF> 
:G0 ASK AGAIN 


; TYPE “DRIVE(S) 

s INITIALIZE DRI VEN UMBER 
;INIT. COUNT OF LISTED DRIVES 
INIT BIT POINT 
;SEE THIS ORIVE IS LISTED 
:BR_IF DRIVE NOT LISTED 
SEE _IF FIRST TINE HERE 
iBR iF Age TIME HERE 


Se ee FOR BUFFER 
i CONV RT gt NO. 10 ASCII 


E 

SEE F ANY DRIVES WERE LISTED 

:BR YES 

:TYPE “ NONE” 

; TYPE a NO DRIVES TO _TEST™ 
peas *CONT’ WHEN RDY 

RATT ERN TO MARK DRIVES 

;DRIVE LIST ADDRESS 

:MARK ALL DRIVES IN LIST 


HALT PROGRAN 
: TYPE <C 
:SEE IF RPEAULT MODE 


eet IF DRIVE 0 LISTED TO TEST 
;TYPE “IF XXDP PACK ON DRV 0, TYPE Y <CR> 
AND REPLACE IT" . 


F NOT, TO ASK AGAIN 
“PRESS CONT WHEN DRY RDY" 

t OTSABLE RKO INTERR 

‘HALT FOR PACK CHANGE 

INIT THE SU 


B-SYS 
:GO CHECK STATUS OF LISTED DRIVES 
;TYPE ASTERISK AND SPACE 


iat Py ye - RKS 
0E-0C 





Biwi fiaeo 
014214 


014372 
014374 


014376 
014400 
014404 


o1444e 


005021 
00502 
0050e1 
0050 


005200 
022700 


003126 


014534 
015300 
000017 


005262 
001314 
00S26- 
005262 


O0S262 


005376 


001376 
000200 


000377 
000001 
005576 
000001 


000010 


000060 
000067 


000054 


005576 


001341 


005576 
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fo'- DESIRED DRIVE IN 
:READ AND CHECK NEW DRIVE NUMBERS 


PC, RDCHRS READ IN_INPUT STRING 
RUrst ata) ET a ADDRESS 
DRVTST ;(tZ) RETURN ADDRESS 
TELDRV | ;(tU) OR ERROR RETURN ADDRESS 
R ;SEE IF NULL INPU 
BNE 9$ ;BR IF NEW “DRIVE WI t RE yas 
TSTB DULACS ;SEE_IF DUAL-ACCESS S 
BNE ees ;BR YES 
JMP ASKTST ;JUMP TO THE TEST INPUT ROUTINE 


223: JMP INPUTP :GO ASK FOR INPUT PARAMETERS 


3§: CMP #15. ,RO :SEE IF TOO MANY CHARACTERS TYPED 
BGE 12% BR IF NOT TOO MANY 
10$: TYPE  ,SUFFO sECHO BAD INPUT 
TYPE SQUES -TYPE <?> GND <C 
BR TELDRV G0 TYPE DRIVES ai HEX AGAIN 
12$: CLR AR CHAR. POIN 
14$: CMPB BUFFOCRL), #0 CEE IF DRIVE a ER 
BLT 10% *BR TO ECHO BAD INPUT 
CMPB © BUFFO(R1),#°7 :SEE IF > 7 
BGT 10% :BR TO ECHO BAD INPUT 
INC Ri : INCREMENT CHAR POINTER 
CMP R1,RO :SEE IF MORE CHARS TO CHECK 
BEQ 16 :BR IF ALL CHARS CHECKED 
CMPB = BUFFO(RI),#’, ©; SEE IF THIS IS COMMA 
BNE 10$ :BR IF NOT COMMA 
INC Ri : INCREMENT CHAR POINTER 
BR 14$ *BR TO CONTINUE CHECKING CHARS 
-GET NEW DRIVE NUMBERS INTO LIST 
les: | MOV #DRVLST,R1 ;GET DRIVE LIST ADDRESS 
CLR (R1)+ :CLEAR OUT THE DRIVE LIST 
CLR (R1)+ 
CLR (R1)+ 
CLR (R1) 
CLR RO :CLEAR BUFFER POINTER 
18$: MOVB  BUFFO(RO),RI #§ ;GET A DRIVE NUMBER 
BIC #? :STRIP ASCII BITS 
MOVB #1, ORVLST(R1) ;MARK THIS DRIVE IN ORIVE LIST 
ADD #2°RO “POINT TO NEXT DRIVE NUMBER 
TSTB BuFFO-1¢RO) :SEE IF NULL CHAR YET 
BNE 18S BR IF NOT 


DONE YET 
BR CHK ©GO CHECK NEW DRIVES FOR VALID STATUS 

-COME HERE IF ALL DRIVES requestés 
ALLDRV: CLR 80 “CLEAR DRIVE NUMBER 


SDEVM,R3 :G 
BITB tgT17, SEN ;SEE IF NO SITING 


BNE BR IF NO SIZING 
MOV #377,R3 ;SET UP FOR SIZING 
1$: MOV #8170,R1 -SET BIT POINTER 
23: CLRB = DRVLST(RO) SINITIALIZE DRIVE ENT 
BIT RL, RS ; SEE IF THIS DRIVE IS RREQUESTED 
MOVB #1, DRVLST(RO) : MARK THIS DRIVE IN DRIVE LIST 
4g; ASL Rl :SHIFT BIT POIN NTER 
INC RO INCREMENT DRIVE N 


UMBER 
#10,R0 ;SEE IF DONE MARKING ALL DRIVES 
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4714 O144S2 001364 BNE 23 R IF NOT DONE YET 

4715 O14454 1367 ? 000200 001341 ITB aBITZ SENVM i? IF /FEOGRa SHOULD SIZE 

47] 14462 001402 EG KLst 

4717 O14464 000137 013744 IMP FEL DRV ist Oe eT- ~SELECTED DRIVES 

47] “CHECK ALL gRIVES MARKED IN brivis oe FOR PROPER STATUS 

4719 014470 O050 EHKLST: CLR LEAR DRIVE NUMBER 

4720 giize 105760 o0SS7é Sg DRVLST(RO) :SEE IF THIS abRIve IS MARKED IN LIST 

4721 O14476 00140 4§ ?BR IF NOT MARKED 

4722 914500 010037 ocoOsso0 MOV RO, DRIVE :SET DRIVE NUMBER FOR SCNDRV 

4723 014504 737 «027420 ISR PC; SCNDRV ; CHECK K STATUS OF THIS DRIVE 

4734 ‘IF NOT VALID, TYPE MESSAGE 

4? AND REN OVE IT FROM DRIVE LIST 

4726 O14S10 O14526 6 ERROR RETURN ADDRESS FOR SCNDRV 

4727 014512 90S209 4: INC RO RETURN HERE IF DRIVE IS. USEABLE 

4728 014514 022700 00010 CMP #10,R0 :SEE IF DONE CHECKING 

4729 614520 001364 BNE 2$ ?BR IF NOT DONE YET 

4730 014522 000137 013744 JMP TELDRV :GO BACK TO LIST SELECTED DRIVES 

4731 O145¢5 105060 OOf&76 $$: CLRB  DRVLST(RO) : REMOVE INVALIB DRIVE FROM LIST 

4032 14532 000767 BR 4§ ‘CONTINUE CHECKING THE LIST 

4734 

4738 parte ete CIGD ItST INPUT ROUT 

4736 ‘att. 10 - DESIRED TEST INPUT R 

4737 THIS ROUTINE ALLOWS INPUT OF pESIRED TESTS AND ITERATION 

4738 : COUNT FOR ER CH TEST. THE INPUT IS CHECKED FOR VALIDITY, 

4739 *#AND IF V THE ITERATION COUNTS ARE LOADED INTO THE’ 

4740 jSTEST [ret Laer) RN ITERATION VALUE OF 0 INDICATES 

474] *THAT THE TEST IS NOT TO BE RU. 

4745  ¥THIS ROUTINE R Subst. “ENTER OR I". TYPING ( 

4743 :#CAUSES THE CURRENT LIST OF TE Eee AND ITERATIONS 16 ae 

4744 SeTYPED, (C) ALLOWS TESTS AND ITERATIONS TO BE CHANGED 

4745 :*AND (ft) ALLOWS THE OPERATOR TO PROCEED WITH SELECTION 

474E :#OF OPERATING PARAMETERS, AND TS. 

4747 sT VR ING (tC) CAUSES I THMEDIATE RETURN TO DRVTST. TYPING 

4748 * (#2) CAUSES RETURN TO ASKT 

piles. TESS TEESE ras aA EE 

f 

4751 erennine L,C, OR I MODE 

4752 014534 104401 O10161 ASKTST: TYPE’ 1st MDS ;ASK FOR TEST INPUT MODE 

4753 O1454O 104401 9010263 ASKTMD: TYPE ENTLCI :TYPE “ENTER L,C, OR I” 

4754 014544 004737 030174 JSR PC RDCHRS :READ RESPONSE 

4755 O14550 013660 ORVTST :(#C) RETURN ADDRESS 

H75E O14SS2 «14540 ASKTMD 5(12) RETURN ADDRE 

4757 O14554 014540 ASKTMD >(¢U) OR ERROR RETURN ADDRESS 

4758 014556 005700 RO icre IF ANY INPUT 

4759 O14560 001005 BNE 4g ;BR IF ANY INPUT 

4760 O14S62 104401 oos2E2 2 TYPE § ,BUFFO. : ECHO IN 

4761 O14566 104401 001314 TYPE SQUES :TYPE <?> AND <CR>, <LF> 

4762 014572 OO076e2 BR ASKTMD :GO ASK AGAIN 

4763 014574 022737 OO0114 oOs2b2 4S: CMP #°L, BUFFO :SEE IF (L) TYPED 

4764 O14602 00100 BNE b$ :BR IF NOT (L) 

W7E5 6] 0137 o14640 JMP LSTTST *JUMP TO LIST TESTS 

4766 O14610 622737 OO00103 oOSeb2 6&3: CMP #°C, BUFFO SEE IF. (C) TYPED 

4767 O14616 00100 BNE :BR IF NOT (C) 

4766 O14620 000137 014756 IMP CHGTST ‘JUMP TO CHANGE TESTS 

4763 014624 022737 OO0O0111 oos2e2e es: CMP . #°I,BUFFO :SEE IF (I) TYPED 


SEG 0091 





MD-L1-D7RGM-C - RKEI1L RKO SUBSYS. VERIF, : PART MACY11 27(1006) OS-OCT-76 10:13 PAGE 93 oo ems 
seaene fil Os-o8t=7e 10;63 to'= bestaen test inbur Routine scar shee sE% 2032 
| 77O 614632 96) . BNE 23 sBR IF NOT (I), TO ECHO BAD INSUT 
| mat Bes 5 #3 01300 IME INPUTP 260 INPUT PARAMS AND BUN TEST 
| 477 sLIST CURRENT TESTS AND ITERATION COUNTS 
4774 QIME4D 104401 010365 LSTTst: TYPE TLSTHO ; TYPE HEADING “TEST ITERATIONS” 
4775 514644 O0S001 cLRsCR sINITIALIZE TEST INDEX 
ce fies Gee Be TREND er eect WEST tc HeA rac 
ede f ‘ H ' a + f 4, 
a77S ai itee raed 131 ; , +h gtrLe ;T «CR? , <LF> de 
“77S O14662 OOS737 O0Ss22 TST NTCHR *SEE IF ANY INPUT 
4780 91 50141 ' BEQ $ :BR IF NO I yt 
| $781 SIME? 122737 900003 ooss22 CMPB —s-«-8003, INTCHR :SEE IF (#C) TYPED 
| Ss i os Oe 01 > a ee Pe TocASk FOR DRIVES AGAIN 
8785 OIS704 I apaeee o0sS22 4: CMPB «=sg8 032, INTCHR :SEE IF (#2) TYPED 
| 8785 034712 os ! t$ 788 IF_NOT (6) 
| MF piri 137 014540 y ASKTMD :JUMP TO RSK OR NEW TEST INPUT MODE 
«4787 O147e0 &$ JSR PC ECOBAD sECHO BAD INPUT 
| 4788 O14724 1 900002 ADD 82, R1 : INCREMENT EST ENOEX 
| 8783 OI8730 0101 MOV Rl’ Re :GET COPY OF INDEX 
i 4799 giise Bpo305 O0SEDS ADD aTSTLST, Re :GET POSITION IN LIST 
| 4791 O14736 o70e 005650 CMP sOFLTST,Re ;SEE_IF DONE WITH LIST 
4752 014742 O01341 3NE 2s :BR IF NOT DONE YE 
| $793 O18744 042777 900100 164172 BIC sBITé, a$TKS :DISABLE KBD INTERRUPT 
pile 014752 000137 614646 IMP” oaSKTN °GO ASK FOR NEW TEST INPUT MODE 
4736 “CHANGE CURRENT TESTS AND ITERATION COUNTS 
4787 01 104401 010311 CuGTST: TYPE. .OFTEST sASK IF TESTS SHOULD BE DEFAULTED 
4798 O14762 004737 530175 ISR PC ROCHRS ;READ RESPONSE 
4798 (014 013660 DRVTST 4D) RETURN ADDRESS 
wed 014770 914540 ASKTMD :(¢2) RETURN ADDRESS 
4801 O14772 O147S6 CHGTST sty) OR ERROR RETURN ADDRESS 
| 4802 014774 905700 TST RO °SEE IF NULL INPUT 
4293 O14776 O01425 REQ NUL INP :BR IF NULL INeuT 
4604 015000 622737 000104 oDszE2 MP 8°D, BUFFO :SEE IF (0) yeep 
4605 O15006 Od140s BEG LODFLS ir IF 0 BuLTS QUESTED 
4806 015010 104401 ooSe62 TYPE | BUFFO ‘ECHO BAD INPU 
4807 D15014 104401 001314 TYPE S$QUES ;TYPE <?> AND <CR>,.LF> 
| 608 015020 600756 zs HGTST °G0 ASK AGAIN 
4808 LOAD DEFAULT ITERATION COUNTS INTO TEST LIST __ 
| 4810 O1S022 012700 ooseso LODFLS: MOV SOFLTST,RO sLOAD DEFAULT LIST ADDRESS 
 ~WBIL O1S026 O12702 0066 MOV aTSTLST ‘Re :LOAD TEST LIST RODRESS 
| 4812 016932 Olzoz3 4$: MOV (RO)+, (R2)4 *LOAD A DEFAULT VALUE 
_ 4813 015034 022702 ooseso CMP sDFLTST, Re :SEE IF DONE 
4814 016040 001374 4$ :BR IF NOT DONE YET 
+4815 015042 106737 oo2106 TSTB MOFLAG :SEE IF DEFAUL 
 ~4EIE OL5S046 001234 8 ASKT ‘BR IF NOT DEF ODE 
| 4817 p15060 000137 016210 IMP LODFPT : g0 DEF T PARAMETERS 
 w6ie 015054 90600: NULINP: CLR Ri :INITIALIZE TEST INDEX Senge 
| 4818 O1S0S_ 10440] oozes TYPE TLSTHO ‘TYPE HEADING “TEST ITERATIONS 
4629 -TYPE UURRENT TEST AND ITERATION’ NUMBER 
4821 O150¢2 004737 030506 bs: PC. TYPTST sTYPE A TEST NO. AND ITERATION NO. 
4B=2 015066 104401 012430 TYPE  , SPACE : TYPE @ SPACE 
4623 O15072 104401 O12450 TYPE T : TYPE ASTERISK AND SPACE 
| 4824 ;READ AND CHECK INPUT, IF = ; 
4E25 O1S07E 004737 030174 ISR Pc, RDCHRS sREAD OCTAL DIGITS TYPED 
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ee lel isd) 
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Zeus Siete Pee8P3 
4843 bess 005300 
te oe 
a548 teh78 pees? 
3ES5 S1E595 | SPE22 
| Esp 5iesi8 512600 
| SB31 Dieels Geoue? 
«SEE RIESE DERE 
| 4865 16526 05702 
| 3835 015230 001731 
| wees 015232 910102 
uBsB Ol524 Oee702 
| B59 015240 O2e7De 
| BBO 015244 901002 
| 4861 O] 000137 
 4BEE OIE 016161 
| 4863 O! 062701 
| dee St ese? 34 $6 
| 4866 RiEssé eat 
| 4862 015276 000671 
-: 
| 1575 gisz0c ovo, 
es 
4674 015530 [0440] 
or tee Fue 
4677 O15332 0163049 
we7e O15334 615204 
4878 015336 005700 
| 4880 O15340 O01005 
WEE1 O1S342 104401 
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10:03 TO - *pESIAED TEST INP by ROUTINE 
Bie ST 
' H ) 
ef : up § RROR RE En AODRESS 
aXe 3s ise PY aft ANY INPU 
000002 108: aoc 2,81 ; INCREMENT INDEX 
DOS&DE feet Er ee SAC T HON IN List 
005650 CMP sOFLTST. :SEE IF DONE oT Ist 
BNE 8 :BR IF NOT 
014540 IMP ASKTMO :60 ASK FOR NeW TEST INPUT MODE 
ooS2b2 128: CMP 8°! BUFFO :SEE IF (!) TYPED 
BEQ 16$ ;BR 10 PROPAGA CURRENT ITER. 
cLR Re SINITIALIZE (!) INDICATOR 
00004: 00526; CMPB Oso"! SUFFO-1(R0) :SEE IF LAST CHAR IN BUF IS (!) 
Me ‘fer em 
o0S261 CLAS © BUFFO-1( RO) : INSERT iNATOR BYTE 
DEC RO : DECREMENT ee COUN 
ANC Re Be (*) INDICATOR 
po0c0s 4g; ¢ 85, RO :SEE HOW MANY 
; BLT 20$ :BR IF TOO MANY (MAX ITER. NO. = 77776) 
o0s26e MOV SSUFFO,-(SP)  ;GET BUF ADDR. ON STACK FOR OCTBIN 
051702 ISR PC, OCTBIN :CHECK DIGITS AND CONVERT TO BINARY 
20S "ERROR RETURN ADDRESS FOR OCTBIN 
MOV (SP)+,.R0 :GET ITERATION NUMBER 
077776 CMP RO, 877776 :SEE IF > 77776 
BHI 20 :BR IF TOO B16 
DOSé0E MOV RO,TSTLST(R1) :PUT ITERATION NUMSER INTO TEST LIST 
TST Re :SEE TF (!) WAS TYPED 
_BEQ 108 BR IF NOT (!) 
-PROPAGATE CURRENT ITERATION NO. TO HE END OF TSTLST 
: les: Mov RI, Re ;COPY_INDEX 
0560 ADD sTSTLST,Re :GET POSITION IN LIST 
B0Se4€ C SOFLTST-2,R2 SEE IF AT END OF LIST 
BNE is :BR IF NOT CONE 
O14S40 IMP ASK TMD ASK FOR NEW TEST INPUT MODE 
OOSECE OOSEIO 178: MOV TETLST(RL), TSTLSt+2(R1) :PROPAGATE TO NEXT WORD 
p000de2 ADD 82, Ri INCREMERT INDEX 
BR 6$ 388 TO CONTI 
o0s26e2 208: ry |. BUFFO tECHO BAD INPU 
001314 Ty Ques :TYPE <?) AND <CR>, «LF 
:GO ASK AGAIN 
ASK FOR DESIRED QPERAT TONAL PARAMETER INPUT “ODE 
o10415 tat TP: TYPE sEXPLAIN INPUT MODES 
d0sso2 ASKMDE: CLR af ALLS ‘INHIBIT ST BE TAEEN OPERATIONS 
O26056 ISR Pc ENBCSR !ENABLE MEMORY PARITY CHECK 
010543 a. oe MOE : ASK FOR DESIRED INPUT MODE 
Biewes TYPE PRO YPE * 
0301 ISR Pc, ROCHRS READ RESPONSE TO MODE QUESTION 
DRVTST (10) RET URN ADDRESS 
ASKMDE Ct?) RETURN ADDRESS 
ASKMDE :(tU) OR ERROR RETURN ADDRESS . 
TST RO . SEE IF NULL INPUT 
7 BNE 4§ BR IF ANY: Neu 
ooszte 28: TYPE  ,BUFFO ECHO BAD INP 
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DIREMC.PLL = -OS-0CT-7— 10:03 TO - DESIRED TEST INPUT ROUTINE 

“382 i o44o1 001214 IyPe SUES : TYPE <7) aN (CR, (LF> 
wBSs 515354 737 000124 ooses2 48: MP at BOFFO G2. 3 oe TYPED 
wees 5] a ch $ >BR IF NOT (T) 
wee 9015364 137 015672 } YPLST : TO THE TYPE LIST ROUTINE 

| 4887 015370 O22737 000117 oosze2 6&8: Mp 8°0,BUFFO : SEE IF (9) TYPED 
4888 Ol 8 ] BNE :BR IF NOT (0) 
wees 0154 gE 016144 IMP OPNLST : JUMP TO THE OPEN LIST ROUTINE 
4890 915404 737 O00l23 o0S2t2e es: Cup #°S, BUFFO :SEE IF (3) TYPED 
489] O154i2 O01 SNE 10$ °BR IF NOT (S) > 
4892 015414 900137 016430 IMP SETPRM : JUMP TO THE SET INDIV. PARAM. ROUTINE 

| 893 O18420 022737 O00122 ooS262 105 CMP 8°R, BUFFO ‘SEE IF (R) TYPED 

| ~is- 3} 42— 001345 BNE 2$ ;BR IF NOT (R), TQ ECHO BAD INPUT 
w69S 015430 23737 oos726 005730 CMP $0,$1 -COMPARE 20(DEC) SECTOR LIMITS 

| 4895 «915436 03 BLE 12$ BR IF SO NOT > SI 
4857 O15440 [0540] O10651 TYPE SECNL : TYPE “SO>S1 NOT - 

| 4548 O18444 S507: BR ASKMDE 'G0 ASK AGAIN FOR PARAMETERS 
49S O1544— 023737 o0S732 005724 128: CMP $2.53 : COMPARE 22 (DEC) SECTOR LIMITS 

| 4900 «O15454 03405 BLE 14$ :BR_IF S2 NOT > $3 

|} 4301 pibu3e 104401 910701 TYPE  ,SECNL2 s TYPE “S3>S3” 

| 4908 O15 104401 o610e62 TYPE NOTALD :TYPE “NOT RLLOWED™ 

| 4803 O15466 O00706 cs ASKMDE !G0 ASK AGAIN FOR PARAMETERS 
4904 015470 023737 ooS72D oOs722 #148: # CMP FT.LT :COMPARE CHOSEN TRACK LIMITS 

| 9805 O1547— Oda4as BLE 20$ ‘BR IF FT NOT > LT 
+208 x HEeok 104401 010713 TYPE =, TRKNLW :TYPE “FT>LT™ 

| 967 O15504 jO44d] O10e62 TYPE NOTALD :TYPE “NOT ALLOWED” 

«4908 O1SS5io dO0e7s ce ASKMDE °GC ASK AGAIN FOR PARAMETERS 
4325 “CHECK WORD COUNT AGAINST PHYSICAL MEMORY AVAILABLE 

| 9910 O18512 012700 oos7He 20: V we, RO ;WORD COUNT LO BITS 

«4811 SISELE 905300 DEC :DECREMENT BY 1 

| 812 016520 905001 CLR Ri WORD COUNT HI SITS 

_ 813 915532 90029) éLc :CONVERT WORD COUNT TO BYTES 

| 4914 615524 06100 ROL RO 

| #6is Q1& 006101 ROL Rl 
4Sié O1E 063700 005742 ADD MA, RO sADD WORD COUNT (WC) TO MEM. AOR. (MA) 
417? O18634 05501 ADC Ri 

«$918 15536 963701 oos744 ADD MA+2 RI 

| 981 15542 020137 606110 iMe Rl MAHILM+2 ;COMPARE HI BITS 
4320 S15546 101004 BHI 26$ :BR IF WC TOO BIG 

$21 C1550 00100 BNE 29g :BR IF We IS OK 

| $22 O15552 020037 onel0e CMP RO, MAHILM :COMPARE LO BITS 
“Sez O15556 10140 Bos = as ;BR_IF WC IS OK 

4934 STESEO 10440} 010725 268: TYPE WO2B1G :TYPE “## WC OR MA TOO LARGE™ 
“S25 O{5564 O0064 BR Sk 260 BACK TO ASK AGAIN FOR PARAMS 
4526 “SAVE XXDP LOADER, IF NECESSARY 
4527 OISSEE 004737 O2ESSE 283: JSR Pt, CHKXDP :GO SAVE XXDP LOADER IF NECESSARY 
4328 015572 O1s600 363 :"NO SAVE" RETUS' ADDRESS 
4823 O15E74 000137 o1eeey 208: IMP RUNTST ;JUMP TO THE RUN TESTS ROUTINE 
4830 915600 105737 000041 365:  TS7B adel :SEE IF LOADED BY XxDP 
4331 015604 001773 BEG 30$ :BR IF NOT 
4332 OS15606 104401 007333 TYPE OVLODR :TYPE “OVERLAY LOADER ? (Y OR N) 2" 
4923 015612 0047 174 ISR PC ROCHRS :READ RESPONSE 
4624 OlSél¢ Seek 363 :(#C) RETURN ADDRESS 
4335 515620 315600 363 :(¢2) RETURN ADDRESS 
4336 015622 C'5600 368 :(¢U) OR ERROR RETURN ADDRESS 
4927 O15624 022700 ooo001 Mp #1,R0 :SEE IF 1 CHAR TYPED 


$e o ct em een ee ee ee 
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_ 4954 015710 005737 
4965 615714 001430 
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4665 015732 122737 
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4672 015746 004737 
Ge hem Bere 
157 
| dese bibeg BEECEL 
| 4876 O1S766 062701 
| dase BYES5E BETES 
| 4979 bt Eao8 0627 
| 4980 016004 7 
| 4981 pieoig 001333 
| 4982 O16012 032737 
4983 016020 O0100s 
| 4985 O16022 042777 
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00SS2e 
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cossee 


: PART MACY11 27( 1006) 
to - SESIRED TEST INPUT ROUTINE 
BEQ 28 
37$: a3 , BUFF 
TYP $QUE 
se 563 
388: CMPB  #’Y,SUFFO 
BNE 49 
BR 308 
40S:  CMPB  8°N,BUFFO 
BNE 37§ 
JME ASKMDE 


SBTTL TO = TYPE (1) LIST ROUT 


OS-OCT-76 10:13 PAGE % 


:BR IF 1 CHAR TYPED 
ECHO BAD INPUT 


:G0 ASK AGAIN 
ieee Pt (¥) ryan 
ef 

ok (N) a 
; IF NOT (N) 


760 ASK FOR PARAMETERS AGAIN 


s#THL CONE, Line iBrcine, E Each ewe gai Se 


:#AND (¢2) CAUSES RE 
TYPLST: . 
, PREPK 
Se Be PREPKB 
18: JSR PC’ TYPPRM 
TYPE StRLF 
TST tNTCHR 
BEQ $3 
CMP8 8003, INTCHR 
BNE 4§ 
JMB DRVTST 
4S: CMP8 8032, INTCHR 
SNE &$ 
IMP BSKMOE 
6S: JSR PC.EC BAD 
JSR PC’ PREPKB 
es: oMP ete, PRMNEM(R1) 
SNE 
ADD 9 R1 
10S: ADD : 
MOV R1'Re 
ADD RPANEST. cs 
CMP #PRDFLT’ Re 
BNE 1$ 
BIT e815, PT 
BNE 
BIC BI T6 asTKS 
IMP ASKMD 
- TYPE our USER-DEFINED PATTERN 1 
{2s: YPE PFIFT 
atk 1 
14$: TST INTCHR 
SEQ O$ 
CMPB =s-s& 03, INTCHR 
BNE 
IMP DRVTST 


HaTVPING. (1g (tC) C ae pen ag Bevis? 


IN Octal. 


i PREPARE Be Possrae KBO INPUT 


iT SURRENT ARAMETER AND VALUE 
SEE IF oy HNPUT AT KBD 


SSUME TO ASK FOR DRIVE(S) AGAIN 
F (t2) TYPED 


;ECHO BAD 
PREPARE FOR POSSTALE KBD INPUT 
ieee iF PARAM. 

IF NOT ( 

; INCREMENT PARAMETER INDEX 

s INCREMENT PARAMETER INDEX 
GET COPY OF INDEX 

; COMPUTE Oe uit IN LIST 

;SEE IF OONE WITH LIST 
;BR IF NOT DONE VET 

SEE IF PATTERN 15 SPECIFIED 
BR IF PATTERN SPECIFIED 


DISABLE KBD Sn 
TO ASK FOR NEW MODE 


;TYPE “USER-DEFINED PATTERN !5 : 
s INITIALIZE ny INDEX 

;SEE IF ANY INP 

:BR IF _NO INPUT” 

:SEE iF tt) TYPED 

;BR IF NOT (t 


C) 
JUMP TO ASK FOR DRIVE(S) AGAIN 


SEG 0095 
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le2737 


: PART 
TO - PE. (T) LIST ROUTINE 


OS-O0CT-76 10:13 PAGE 97 


MACY11_ 27( 1006) SEG C096 


o00032 ooss22 168: CMPB #032, INTCHR +SEE IF st (12) TYPED 
015304 an SKMDE 0 Ask. for NEW MODE 
5350 18%: JSR PC, ECOBAD ee 
5320 JSR PC’ PREPKB Coe Bee coe Possia, E 80 INPUT 
2 20s: J&R PC’ TYPPAT :TYPE WORD XX = 
TYPE Ss LF  Beckesth' ibe . «LF ¥ 
ADD 
00040 cmp ny .T Fig Mit TYPED 
SNE 14 Lee YET 
900100 163004 BIC teITE aSTKS ISAO oe INTERRUPT 
Ol IMP ASKMDE JUMP TO ASK FOR NEW MODE 
.S8TTL TO - OPEN (0) LIST ROUTINE 
: #THIS ROUTINE IS Use TO EI THER REQUEST LOADING OF ALL 
t Fru T PARAMETERS IN NTO. THe PA BREE TER LIST TO 
NTIALLY OPEN EACH R FOR ALTERATION BY 
- PT NPUT. TYPING (10) Causes IMMEDIATE RETURN TO 
ZxDRVTST, AND (2) CAUSES TO 
OPNLST: 
010756 TYPE DF QUES :ASK IF ALL DEFAULT VALUES DES TREO 
030174 SR PC, ROCHRS !READ RESPONSE TO DEFAULT QUESTION 
DRVTST :(tC) RETURN ADDRESS 
BSKMOE !(42) RETURN ADDRESS 
OPNLS :(tU) OR ERROR RETURN ADDRESS 
TST RO :SEE IF NULL INPUT 
BEQ NOTDFT ;BR_IF DEFAULTS NOT REQUESTED 
o00104 ooS262 CMP #°D, BUFFO ‘SEE IF (D) TYPED 
BEG LODEPT BR IF DEFAULTS DESIRED 
pos2b2 TYPE OF ED ECHO BAD INP 
001314 TYPE , S0UES 
BR GO ASK AGAIN 
LOAD ALL DEFAULT “VALUES INTO pabGne TER LIST 
O0S75& CODFPT: #PROFLT “BO ;LOAD BEALL T LIST ADDRESS 
005712 Nov SPRML ST LOAC PARGMNE TER R LIST ADDRESS 
4: MOV (RO)+ TES, ‘LOAD A DEFA 
005756 CMP 8PROFLT, Re : SEE IF DONE Ut 
BNE 4§ R IF MORE | VALUES TO LOAD YET 
003106 TSTB  MOFLAG :SEE IF DEFAULT MODE 
BNE :BR IF NOT SEFEULT MODE 
900001 o2s5016 MOY #1, SEOPCT SET PASS COUNT = 1 
C1674 JMP STPASS 6 RUN DFLT Nest TS 
61530 Mp ASKMDE Tne TO ASK FOR NEW MODE 
NOTDFT: CLR RI ‘INITIALIZE INDEX 
-TYPE CURRENT PARAMETER AND VALUE 
o20s42 bg: ISR PC, TYPPRM STYPE PARAMETER AND VALUE 
012430 TYEE + BPACEL :TYPE A SPAC 
012450 YPE PROMPT :TYPE ASTERISK AND SPACE 
; READ AND CHECK INPUT IF ANY 
020174 ISR Pc, ROCHRS sREAD OCTAL DIGITS TYPED 
DRVTST :($C) RETURN ADORESS FOR RDCHRS 


ASKMDE 


:(¢2) RETURN ADDRESS FOR RDCHRS 
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PORT 1 MACYL1_27(1006) OS-OCT-76 10:13 PAGE 96 
- OPEN (0) LIST ROUTINE 

8g tu) OR aff RETURN ADDR. FOR RDCHRS 
TST 0 SEE IF An gf 
BNE 10$ IF ANY 
CMP "MA, PRMNEMCRI) ; = IF 98) ust DEFAULTED 
NE 12g if or | 
ADS 82,1 tT Ince 
3R 128 : a 4 MAOVE ON T NEXT PARAMETER 

103:  ¢MP #10,R0 :SEE IF 8 CHARAC ERS YPED 
SLT 145 BR IF MORE THAN § TYPE 
MOV #8UFFO,-(SP) PUT BUFFER ADDR. aN STACK FOR ocTBIN 
JSR PC, OCTBIN ; CHECK DIGITS AND CONVERT TO BINA 
14§ !ERROR RETURN RODRE S FOR berein 
MOV (SP)+,LOWOCT GET L LOW BINARY 


MOV SHIOCT,HIGOCT. _:GET HIGH BINGRY. 
:CHECK PARAMETER VALUE | ano PUT INTO LIST 
1S PC,C : CHECK IDITY OF PARAM VALUE 
ERS SB ORE URN ADDR. FOR CHKPRM 
- OPEN USER-DEFINED PATTERN 1S FOR MODIFICATION, IF NECESSARY 
12s: 
: MOVE ON TS 0 NEXT PARAMETER 


#2,R1 s INCREMENT THE PARAMETER INDEX 
MOV RI Re :GET COPY OF X 
ADD SPRMLST Re : COMPUTE POSITION IN LIST 
chp BPROFLT Re ieee IF oor WITH He IST 
IMP ASKMDE Me TO. 0 ASK FOR NEW MODE 
148: TYPE  ,BUFFO ECHO BRD INPUT 
TYPE SQUES > TYPE <?> AND <CR>,<LF> 
8 ?BR TO ASK AGAIN 
.SBTTL TO - SET (S) INDIVIDUAL PARAM ROUTINE - 
:#THIS ROUTINE IS USED TO ALLOW SETTING OF ANY INDIVIDUAL 
!#PARAMETER VALUE BY TTY INPUT. A PROMPTER (>) IS 
#TYPED AND THE ROUTINE WAITS FOR INPUT OF THE FORM 
2% XXZYYYYYY RE XX IS THE MNEMONIC FOR ANY VALID 
:#PARAMETER IN THE LIST, AND YYYYYY IS THE DESIRED PARAMETER 
;*VALUE IN OCTAL DIGITS. THE PROGRAM THEN ASKS FOR ANOTH 
*PARAMETER BY TYPING "> “ AGAIN. TYPING (1C) CAUSE 
i SIHMEDIATE RETURN TO DRVTST, AND (42) CAUSES RETURN TO 
SETPRM: 
TYPE PRMPSP sTYPE “> “ PROMPTER 
:READ AND CHECK [NPUT, IF ANY 
ISR PC, ROCHRS sREAD INPUT LINE 
DRVTST ?(#C) RETURN ADDRESS FOR RDCHRS 
ASKMDE (42) RETURN ADDRESS FOR RDCHRS 
SETPRM s(t) OR ag RROR RETURN ADDR. FOR ROCHRS 
CMP RO, #4 ‘SEE IF AT LEA ST, 4 TCHBRACTERS TYPED 
BGE 6S" ;BR IF A ‘yERSE 
4S: TYPE  ,BUFFO ‘ECHO BAD INP 
TYPE SQUES : TYPE <7) AND- toR) (LF> 
BR SE TPRM :BR TO ASK FOR INPUT AGAIN 
6S: CMP RO, #11. :SEE IF ELEVEN OR LESS CHARS TYPED 


MO-11-D2REN-C 
SSeehc Pil 
S10 16472 
nS esr 
Bite biesos 
sib ES 
eits Gieeis 
E114 o16520 
Bip Dlg 
116 Ol 
e117 
| BIE oue530 
E118 16534 
£120 oO1es42 
S121 O1e544 
pide DIS55e 
| §123 O1ess4 
£124 o1este 
ies O1ese4 
El2e O1este 
| 5187 016570 
«+128 016572 
| §128 16574 
 §130 o16602 
| §131 O1e604 
5132 Olsede 
Bigs Oi6610 
ETH oleei 
| €135 O1ee14 
«Hx Oleee0 
513 
| §138 o1esee 
| §139 O1eeze 
| 40 O16630 
E141 O1ee34 
~=«éBLHE «16636 
| BIE Dlgese 
E144 dieeso 
clus O1ces4 
| 5146 
| §147 o1eese 
| $148 Olebbe 
5148 
e150 
E15] 
5152 
5153 
5154 
Eres 
E15 
5157 
cise 
e1eS 
E1ES 
Ele] 


o 
’ 


=_ PKG} i /RKOG, suasy$. VERIF. 
Sees ae tata to’ - 


0S-007 
003370 


016454 


004737 
000662 


cof rr - + -—-- 


O0S2t2 
000002 
005712 
00s 


pooave 


000075 


000040 


006132 


00S262 
00S262 
00S26e2 


00S26e 


005470 


HOS 


"et ts) INT TDUAL PARAM ROUTT 


4$ BR IF ORE THAN rEREVEN TYPED 
:SEE IF THiS MNEMONIC RESIDES IN’ PuR NONIC TA ' 
R INT TIAL T PARAMETER INDEX 


es: GNP BUFF, PRINEM(RL) iiFY, 10 HarcH @-CuAR MENON: 
108 F Pak nary cS " 


BEQ OUND IN TABLE 
ADD : Tictenent obfiQEX 
MOV Ri‘Re ‘GET COPY OF INDEX 
ADD #PRMLST, Re :SEE IF ALL ENTRIES HAVE BEEN CHECKED 
CMP #PROFLT|Re 
BNE 8 iB IF MORE TO CHECK YET 
R 4§ -BR TO ECHO BAD INPUT 
-CHECK FOR VALID LINE FORMAT 
10S: MOV ee RS ;INITIALIZE BUFFER POINTER 
ches = SuFFOCR2) ; SEE Pig CHAR Is * 
CMPB 4s O40, BUF FO(R2) SEE IF NEXT CHAR IS A SPACE 
BNE 4g :BR TO ECHO BAD INPUT 
INC Re ; INCREMENT BUFFER POINTER 
CMPB oO s«ag'=,BUFFO(R2)  :SEE IF NEXT CHAR IS ™ 
BNE 4 :BR TO ECHO INVALID INPUT 
12$: INC R2 ; INCREMENT BUFFER POINTER 
CMP R2,RO :SEE IF MORE CHARS LEFT IN BUFFER 
BGE 4g :BR TO ECHO INVALID INPUT 
CMPB =s« 840, BUF FO(R2) ;SEE IF NEXT CHARACTER IS SPACE 
BNE 14S ‘BR IF NOT A SPACE 
INC Re : INCREMENT BUFFER POINTER 
CMP Re, RO -SEE IF MORE CHARS LEFT IN BUFFER 
GE :BR IF NONE LEFT 
148: SUB 2, RO : SUBTRACT POINTER FROM CHAR COUNT 
CMP RO; #10 ; SEE HOW MANY CHARS LEFT 
BGT 4g’ IF TOO MANY LEFT 
;CHECK FOR LEGAL PARAMETER VALUE’ 
ADD #BUFFO 3GET ADDRESS OF DIGITS 
MOV Re, -( SP) ;PUT IT ON STACK FOR OCTBIN 
ISR PC’ OCTBIN ‘CHECK DIGITS AND CONVERT TO BINARY 
5 “ERROR RETURN ADDR. FOR OCTBIN 


4 
MOV (SP}+, LOWOCT ‘GET LOW BINARY 


MOV $HIOCT.HIGOCT :GET HIGH BINARY BITS 
JSR PC, CHKPRM ; CHECK VALIDITY OF PARAMETER VALUE 
4§ RROR RETURN ADDR. FOR CHK 
; OPEN USER-DEFINED PATTERN 15 FOR MODIFTEATION. IF NECESSORY™ 
BR CEtPRN ;RETURN TO ASK FOR ANOTHER PARAMETER 


-SBTTL TO - "RUN (R) TESTS eit NE 

p*THIS RO bBc ta ENTERED TO SET UP THE RUNNING OF TESTS, 
;#WHOSE PARAMETERS HAVE BEEN DETERMINED. IT FIRST ASKS 
;*#FOR THE DESIRED NUMBER OF PROGRAM PASSES, AND ST One 
*#THIS IN SEOPCT FOR THE END OF PASS ROUTI THEN 


3% R_ON QO IS READ T 
;*ORIVE. THIS is STORED IN THE FORMAT BYTE, AND A JUMP IS 
s #MADE TQ THE FIRST TEST. 

*THE END OF PASS ROUTINE RETURNS TO “NEWDRV” TO SELECT 
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0038 








MO-1LI-DZREM-C - 
DZREMC.P11  OS-0 
| $162 
| Sls3 
| 68164 
| 358 O1gs64 
166 
| S1é? O16664 104401 
| §168 018670 904737 
/ §16s O1 012660 
5170 218676 915204 
5171 616700 O1b4 
5128 016702 905700 
£i73 O16704 001403 
£174 O18706 22700 
5175 o1g712 oos 
3178 016714 104401 
Ei7? O1&720 10440) 
5178 O16724 757 
5179 b187e6 Ole 
£180 O1&732 O047 
£181 016736 Oi6714 
S182 O16740 012637 
5183 016744 O017 
£184 
| §185 O16746 005037 
| §1g6 gi8 o 737 
| §387 616766 615737 
3188 016766 905037 
i180 O1 012737 
za) BiSace 91 
, §192 017004 105037 
| 5193 017010 a! 
£194 017014 005237 
 §195 617020 022737 
| §196 617026 odio0e 
| §197 017030 000137 
| §198 017034 013700 
| §193 017040 105760 
| §200 017044 601752 
| §201 017046 105037 
| $202 0170Se 005037 
| $203 01705 O01 
| $204 
 +§205 o17062 004737 
| S206 017066 112765 
5207 017074 737 
| 5208 017100 132765 
| §209 017106 O01404 
S210 O17110 i4e76€5 
| S211 Ol711e O43 
 §2l2 017120 15276 
| §213 017126 004737 
314 p17 ze 105037 
| 215 017136 013737 
| §216 017144 013737 
S217 O171s2 o0S762 
— 


RKE1L/RKDE 
cT=7 


6 id 


605500 


000001 
000007 
000007 
000007 


00SS0E 
005510 
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TO - RUN (R) TESTS ROUTINE 


;#EACH SUCCESSIVE DRIVE FOR TESTING, UNTIL THE ENTIRE PASS 
;# (ALL ORIVES) IS COMPLETED. 


NTST: 
peut THE ais oo NUMBER OF PROGRAM PASSES 


YPE ;ASK FOR NUMBER OF PASSES 
R PC, RDCHRS :READ RESPONSE 
DRVTST ;(¢) RETURN ADDRESS 
ASKMDE (42) RETURN ADDRESS 
:(tU) OR ERROR RETURN ADDRESS 
TST RO :SEE IF NULL INPUT 
BEQ &$ :60 ASK AGAIN 
CMP #5, RO :SEE HOW MANY CHARS TYPED 
BGE 93° :BR IF S OR LESS 
&$: TYPE  ,BUFFO ‘ECHO BAD INPUT 
TYPE ‘$QuUES 
9g ay aBUEO (SP) a *BUF ADDR ON STACK FOR OCTBIN 
s | #Bi - 
JSR OCTBIN i CHECK But etre AND CONVERT TO BINARY 
&§ ROR RETURN ADDRESS FOR OCTSIN 
MOV (SP)+, SEOPCT Ser DESIRED NO. OF PASSES (1-77777) 
THIS 15, THE ACTUAL START OF A RUN W TH pasces nee 
STPASS: CLR $PASS “INIT, THE PASS NUMBE 


R 
MOVB :SET "RUNNING TESTS” FLAG 
NEWPAS: MOV $197977,0 DRIVE INITIALIZE DRIVE NO. TO -1 


jCHECK DRIVE LIST FOR NORE oraved TO Test TEV TCS pass "7 

NEWORV: MOV #PRO. aePs >RE-ESTABLISH PRIORITY 0 
* MOV #STACK. SP : RESTORE THE St 
CLRB  DRVERS : CLEAR ERRO SOUNT FOR CURRENT DRIVE 
me Oe fipeen ate Ales 
CMP Bi DRIVE :SEE IF NONE WITH THIS PASS 
BNE 2 :BR IF NOT DONE CHECKING LIST 
IMP DUNPAS :JUMP IF DONE WITH THIS PASS 

2g: MOV DRIVE. RO :GET NEW DRIVE NUMBER 
TSTB = ORVLSTCRO) :SEE IF THIS DRIVE IS MARKED IN LIST 
BEQ NEWORY ;BR IF NOT MARKED, TO CHECK ANOTHER 
CLRE 3s STSTNM :INIT TEST NUMBER TO O 
CLR si] MES tINIT ITERATION COUNT 
MOV *SET DRIVE NO. FOR APT 

:READ THE HEADER RON Spey oR 0, TRACK O,CYL 0, AND GET THE DRIVE FORMAT 
JSR NIT. ORIVER PARAMS AND 


N 
MOVB  #ROHEAD B cmno rey reer READ HEADER COMMAND 
P O’READ HEA 


ISR C, DRYC -D H 
BITB &#B:CFMT,P.CSIH(RS) ;COMPLEMENT THE FORMAT SIT 
BEG 4§ > GIVEN TO THE CONTROLLER 
BICB #B.CFMT,P.CSIH(RS) ; AND DO READ HEADER. 
BR : WILL CAUSE SECTOR 0 TEABER 
ug: BISB &B.CFMT,P.CSIH(RS) : TO BER AD. 
6S: ISR PC. ORV RVCAL READ HEADER O 
CLRB «FORMA SINITIALIZE FORMAT BYTE TO 0 
HOV se. a ‘INIT SECTOR LIMITS FOR 22(DEC) SECTOR FMT 
TST BAB TRE) :POP SILO ONE TIME 


SEG 0099 








yo ee = RKELI“RKOE SUBSYS. VERIF. 
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oc00e4 
003115 


005750 






Tl MACY11_27( 1006) 
io - RUN (R) TESTS ROUTINE 


#8179, RKDB(Re) 
#8. CFMT, FORMAT 
0,F 


OS-OCT-76 10:13 PAGE 101 


; TEST FORMAT ort ff HEADER WORD 2 
€ SECTOR FORMAT 


e 
SET 20 SECTOR FORMAT FOR THIS DRIVE 
INIT SECTOR LIMITS FOR 20(DES) SECTOR FMT 


it oa 4 UNIT STALLS DESIRED 
B SECTOR FILE FOR THIS DRIVE 


pa Bt home DR 


BEF Pena e 


: TYPE “pany SER. ND. ei 
ES ein 

iste TF, BAD TORS SHOULD 
; TYPE BAD aut FILES 
;IN Y INPUT CHAR BUFFER 
; SEE IF ou DUAL-ACCESS FLAG SET 


: JUMP T0 Ri DATA TEST 








05-OCT-76 
5243 
5244 
Bete 
5247 
5248 
5349 
S250 017216 oo00004 
$251 917320 012737 
S252 017306 004737 
5253 017332 004737 
5254 017336 000137 
25ee 1734 737 
e525 BiSaie BRul8e 
5259 
S259 017352 1127 
Beb9 017360 0047 
S262 017364 013765 
5263 017372 004737 
5264 
| 8265 
| 5266 
5267 
| S268 
| $e69 
5570 
| §271 
| 378 
| be7s 
| §374 017376 900004 
| §875 017400 612737 
| §37—6 017406 004737 
| §3577 017412 004737 
| §378 617416 000137 
£375 
| E580 o17422 004737 
£281 017426 004737 
| §5g5 
| 5283 017422 013765 
5264 617440 004737 
| 528s 
«528 O17444 013765 
| 5287 Oi74se 004737 
| &2ee 
| 5289 
| $280 
| $2e91 
| See 
«$293 
«594 
_ gees 
| 529 
_ €297 
 «§29¢ 
sleptsanaindintiarnan 


asc80 


017456 


027300 
025330 


005712 
031742 


005714 
031742 
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001324 


000001 


ooccde 


001324 


000002 


o0000e 





PART 1 MACY11 27( 1006) 
RECALIBRATE SEER TEST 
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; FERARAEREREERELE RARE KEKE EE LEEK RELEASE PALER ES EES ESE SE EEELAES ERE TES 
Tl RECALIBRATE/SEEK TEST 


3 
7* THIS TEST PERFORMS A RECALIBRATE, FOLLOWED BY A 
;* SEEK TO CYLINDER LC. 


[peteeeneneneseneanueanueannnaceseseaeasaeacananaceneneeenents 
COP 


aie 
ay #1,$TESTN ::SET TEST NUMBER IN APT MAIL 80x 
JSR PC’ SETTUP spe T UP FOR LOOP ON ERROR 
JSR PC, CHK ITR § 3 TER. i ies 6 FOR THIS TEST 


; RETURN nent FROM CHKITR IF er Te To. ? a PaRes @0 G8-S7S 
Pe Prarie i BREPARE fats BAS IBLE KB INPUT 


REO, P. CMND(RS) al RECAL COMMAND 
ISR p Drv “REC LIBRATE DRIVE 
:DO SEEK To CYLINDER 


LC,P. EYLNCRS) ;SET CYLINDER = LC 
JSR BE’ SEEKER :D0 A READ HEADER OR EXPLICIT SEEK 


: 
; 
} 
. 
+ % 


JSR 
;RECALIBRATE THE D 
QVB 


© LELKREE EELS L SSAA HSL EL ALLA LAA LR EAAE EAA REL LERAAE HELA FEAL FTE 
TEST 2 SEEK/SEEK TEST 


3% 
3% pits TEST PERFORMS A SEEK TO CYLINDER FC, FOLLOWED 
+ BY A SEEK TO CYLINDER LC. 


er ee ee 
Cc 
‘MOY #2, STESTN ::SET TEST NUMBER IN ger MAIL BOX 
:SET UP FOR LOOP ON 
J5R PC’ CHKITR :SEE IF ITER. NO. ty FOR THIS TEST 
NEXT TEST 


JM TO 
;RETURN HERE FROM CHKITR IF TEST ‘SHOULD BE RUN 
JSR Pee INITSS 


s INITIALIZE DRIVER PARAMS AND SUB-SYS 
JSR ,PREPKE :PREPARE FOR POSSIBLE KBD INPUT 
:DO SEEK TO CYLINGER 
MOV FCP. EVLNCRS) :SET CYL = FC 
JSR KER :SEEK TO FC 
;D0 SEEK TO CYLINDER L 
MOV LC,P. ES NORE) :SET CYL = LC 
ISR PC’ SEEKER :SEEK TO LC 


5 KEEK ERE R ERE EEEE EERE EE ER ERE EE EE EEE EEE ER ER ER ERE REE AREREEERERERE ES 
T 3 CYLINDER ADDRESSING TEST 


THIS TEST VERIFIES THE CYLINDER ADDRESS BITS 
SEEKING | TO CYLINDERS O 10,20. 40. 100. 200 Bpacoct). 
TN THE SEEKS ARE pote” Fa" neveRst, to 409, 260, 100, 


; 
; 
; 
; 
; 
; 
; 
; 


ee oe RC DC OKC Bees 
=4 
m 








MO-11-DZREN-C - RKE1i/RKOG SUBSYS. VERIF. 
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OZREMC.P11 


5299 
§300 
§301 
5302 


5228 


SS SSS 


004737 


004737 


o0000e 
031742 


Oz 
001000 000002 


900092 
031742 
000092 


000004 001324 
030032 


030100 
017730 


027300 


LOS 


: PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE 103 
CYLINOER ADDRESSING TEST 


ss FHELLELLF REALE ASE REALE RL ALAS LA LL ELA LERAERAELEAELLELERELEL ERE LES 


t§73: SCOPE 
MOV 83, STESTN -SET TEST NUMBER IN APT MAIL BOX 
APT T UP FOR LOOP ON ERROR 
SEE a ITER. i Tear” = 0 FOR THIS TEST 


Ale. JUMP TO ee 
;RETURN HERE FROM bre IF TEST’ SHOULD BE _R 
JSR PC, INITSS ; INITIALIZE DRIVER PARAMS AND sU8-SYS 


JSR REPKB ;PREPARE FOR POSSIBLE K8D INPUT 
»SEEK TO CYLINDER 8 
CLR P, CYLN(RS) T cyt : 
ISR PC, $e KER SE 10 cyt 0 
SEEK TO CYLINDERS I 4. 10,20,4 ai 100 200, 4 : (FORWARD DIRECTION) 
INC int RS) ; INI TIAL TZ E CYL 79 


23: JSR Bee SFE SEEK TO CURRENT 
ASL p.eYL (Rs GET NEXT CYL NO. 
IT arto. P, eyLNCRSS “SEE IF DONE Witty FORWARD SEEKS 


EQ x} N 
:SEEK TO CYLINDERS 400,200,100, ud 20,10,4,2,1,0 CFEVERSE DIRECTION) 
45: ASR P.CYLN(RS) GET NEXT CYL’ NO. 
JSR pe CER KER :SEEK TO CURRENT CYLINDER 
157 P.CYLNCRS) ;SEE IF DONE IN REVERSE DIRECTION 
4g ‘BR IF NOT DONE YET 


5 EEERRARER EEK ERE LEE E EEE AEE REALE EER EERE EA ELAR EEE SLEEK RE REERS 
SATEST 4 CYLINDER ADDRESS CROSSTALK TEST 


THIS TEST PERFORMS SEEKS TO CYLINDERS WHOSE ADDRESSES 
ARE SUSCEPTIBLE TO BIT CROSSTALK WITHIN THE CYLINDER 
ee aa: LOGIC. THE CYLINDER ADDRESS BITS SEQUENCE 


ee ee ee eee 
o00 
Oro 


101 111 111 
rau eieeieismmieieieeieidieiemeiemieieieiioa 
COP 


jie 
aby #4, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
ISR PC’ SETTUP :SET UP FOR LOOP ON ER 
JSR PC’ CHKITR ; SEE IF ITER. = 0 FOR THIS TEST 
JMP ;JLIMP TO neXt 
sRETURN HERE FROM CHKITR IF TEST SmJLD BE RUN 
ISR PC, INITSS : INITIALIZE DRIVER PARAMS AND SUB-SYS 


ee re re rr re ee Tr 7) 


EG 0192 





CLO CC A CC NC CC: 


MOS 
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AoOBREIHS FoRKGLLORKOE Bue chinner AOORESE CROSETALE TEST | 
S255 017614 004737 025330 fee roe . PC, PREPKB :PREPARE FOR POSSIBLE KBD INPUT 
328 017620 o05065 og0002 ; CLR P.CYLN(RS) -SET CYL = 0 

358 017624 004737 031742 JSR PC SEEKER ‘SEEK TO CYLINDER 0 

5255 »SEEK TO CYL 377 ( 

5360 017630 012765 000377 oD000e2 MOV re p. CYLN(RS) ;SET CYL = 377 

5361 017636 0047327 031742 ISR PC, SEEKE “SEEK TO CYL 377 

Pabe SEEK TO ABENRINING’ G CROSSTALK CYLINDER ERS 

363 017642 012727 oOV0001 coOsso4 s INITIALIZE BIT MASK 

S364 O17650 oososs 900002 23: OCR 2 *OYLNCRE) SET cy 

365 917654 004737 031742 ISR ¢, SEEKER ‘SEEK TO CYL O 

366 017660 032737 O00e00 oosso4 BIT eto? CYLNDR SEE IF ABOUT TO DO LAST SEEK 

5367 O17666 001013 BNE 4§ :BR IF THIS WILL BE LAST SEEK 

5368 917670 012765 000377 oo0002 MOV #377,P.CYLN(RS) :SET CYL = 37 

363 017676 043765 905504 co0002 BIC CYLNDR. P. LOLNtRS} = “ZERO A BIT TO PROMOTE CROSSTALK 
5270 017704 004737 031742 JSR PC, SEEKER ;SEEK TO THIS CYLINDER 
5371 017710 337 90S5S04 ASL CYLNDR :SHIFT BIT MASK 
5372 017714 o00755 BR 2 :G0 SEEK To cy 0 AGAIN 
6373 017718 012765 000577 o00002 4s: MOV #577,P.CYLN(RS) :SET = 577 
te 017724 904737 031742 ISR PC, SEEKER : SEEK 16 CYL $77 
5376 
5378 5 ELRAEAERLLA EEA EEA ERE REL EEE REE REEL EREE REE A EERE EERE RER RR ELERELER 
5379 t STEST 5 INCREMENT/DECREMENT SEEK TEST 

re H + 
5381 : IN THIS TEST SEEKS ARE DONE IN INCREMENTS OF IC CYLINDERS 
5282 te STARTING AT CYL FC, AND ENDING AT OR BEYOND LC. THEN, THE 
5382 1% SEEKS ARE DONE IN REVERSE, BACK TO FC. IF FC IS CHOSEN > 16. 
584 i THE SEEKS WILL PROCEED IN’ THE OPPOSITE DIRECTION. 

386 : © LELKHS LEASE LAA RELL ERAS AHA LEASH RES RA KARA LRA A RELA ARLE RARER REF ES 
£387 017730 oop004 +é75: SCOPE 


£388 017732 012727 oo000S 001224 MOY #5, STESTN : SET TEST NUMBER IN a MAIL BOX 
£389 017740 004737 930032 JSR PC’ SETTUP ;SET LOOP ON 
£390 017744 004737 020100 ISR PC‘ CHKITR eer co tERE NO. = ER FOR THIS TEST 
5391 017750 900137 020134 JMP TSté JUMP TO NEXT TEST 
53 _ RETURN HERE FROM CHKITR IF TEST SHOULD BE R 
£393 017754 004737 027300 JSR PC, INITSS s INITIALIZE BRIVER PARAMS AND SUB-SYS 
£394 017760 004737 025330 JSR PREPKB “PREPARE FOR POSSIBLE KBD INPUT 
5395 ;SEEK IN SHICREMENTS FROM FC TO LC 
5396 017764 013737 oOOS712 005512 MOV FC_ACYLI sINITIALIZE NCYL1 TO FC 
5397 017772 013765 o0SSie o00002 es: MOV NCYL1.P.CYLN(RS) :SET CYL = NCYLI 
5398 920000 004737 031742 JSR PC, SEEKER ; SEEK fo” NCYLI 
5399 020004 623737 O0S712 005714 CMP FC‘LC :SEE IF FC > LC 
£400 O20012 003010 BGT 4§ :BR IF FC > wk§ 
5401 020014 063737 oO0S716 ooss12 ADD IC,NCYL1 INCREMENT NCYL1 
S402 O200e2 023737 005714 O055!1e2 CMP LC’ NCYLI : SEE IF LC EXCEEDED 
5403 020030 O02360 BGE 2$ BR IF 
5404 020032 000407 BR $ Lc REACHED, - = 00 REVERSE SEEKS 
S405 020034 163737 OOS716 OOSSI2 4S: SUB IC,NCYLI tOECRENENT N YL1 
S406 O20042 023737 005714 O05512 CMP LC; NCYLI SEE IF LC EXCEEDED 
5407 020050 003750 BLE 2g" IF NOT YET 
540e -SEEK IN INCREMENTS, BACK TO FC * 
409 O200S2 023737 ocOS712 oos714 bs: CMP FC,LC ;SEE IF FC >LC 


S410 Oe0060 003010 BGT - 8$ :BR IF FC > LC 


ae - RK&L1/RKO& SUBSYS. VERIF. : PART 1 
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INCREMENT/DECREMENT SEEK TEST 


Sui1 O20062 163737 O0S716 oossie SUB IC,NCYL1 sDECREMENT NCYL1 
Sui2 020070 023737 OOS712e o0ssie2 CMP FC’ NCYL1 : SEE IF FC EXCEEDED 
S413 020076 903410 BLE 10$ :BR IF NOT YET 
5414 020100 o415 8 12s :FC RE RCHED = - ALL DONE 
S415 620102 737 oOOS716 oossi2 9s: ADD C.NCYLI ; INCREMEN 
S4i6 O20110 023737 005712 905512 CMP FC’ NCYLI :SEE IF FC EXCEEDED 

417 20116 240 BLT 12 :FC REACHE L DON 

418 020130 013765 oosSie oco0o02 10%: MOV NCYL1.P.CYLN(RS) SET CYL = NCYLI 
S419 920126 004737 031742 JSR PC, SEEKER sSEEK TO NCYLI 
5420 020132 000747 BR b$ : CONTINUE 

S421 620134 128: 
eas 
Este © SLXZESRAL ES REL KA SALAH EES RE LASSE LERA EAE AELASREKA SFE RFAAELALELALEEE 
sige ;RTEST & OSCILLATING SEEK TEST 
cua?  & IN THIS TEST SEEKS OF INCREASING LENGTH ARE DONE FROM FC 
5459 1 # TO NCYL1, AND BACK TO FC. NCYL1 IS INCREMENTED BY IC AFTE 
5429 1% ERCH SEEK, ‘0. THe SEEKS TO NCYL1 ALWAYS PROCEED FROM FC 
5430 i TOWARD LC’ (FC >» LC IS PERMISSIBLE). WHEN LC IS REACHED OR 
£431 te EXCEEDED, THE sare SEEKS ARE DONE IN REVERSE ORDER, UNTIL 
S432 :# NCYL! EXCEEDS F 
S434 : © LEKEKLEL HELE ER EAE HERSEK ELK SAK AAE RA KAE RHE KLE KASS S RARE LAF RE RAKES 
5435 020134 oo0004 +éTg: SCO 
5436 020136 012737 o00006 001324 MOV #6, STESTN : iSET TEST NUMBER IN APT MAIL BOX 
5437 020144 004737 O30032 ISR PC’ SETTUP :SET UP FOR LOOP ON ERROR 
5438 020150 004727 030:00 JSR PC’ CHKITR ; SEE IF ITER. NO. = 0 FOR THIS TEST 
6439 020154 000137 020364 IMP St? ‘JUMP TO NEXT TEST 
5440 sRETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN 
S44] O20160 004737 027300 JSR PC, INETSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
S442 20164 004737 025330 ISR PC’ PREPKB :PREPARE FOR POSSIBLE KBD INPUT 
5443 :DO OSCILLATING SEEKS TOWARD LC 
5444 020170 013737 o0S712 oossie MOY FC. NCYLI1 s INITIALIZE NCYL1 TO FC 
S445 020176 013765 OO0SS12 O00002 2s: MOV NCYLI,P.CYLN(RS) SET YL = NCYL1 
S446 020204 004737 031742 JSR :SEEK TO NCYL1 
E447 O20210 O13765 605712 oo0002 MOV FC’P.CYLN(RS) sSET cyt = FC 
S448 020216 004737 031742 JSR PC’ SEEKER -SEEK TO FC 
6449 O20222 023737 005712 005714 CMP : ; SEE IF FC > LC 
S450 020230 003010 BGT 4g :B EC > wks 
5451 O20e3s2 063737 OOS71E oDssie ADD IC, NCYL1 : INCREMENT 
S452 020240 023737 005714 O0551e CMP LC’ NCYLI iSEe IF LC EXCEEDED 
E453 020246 002353 BGE 23 ;BR I 
S44 020250 099407 BR &$ “LC ir CHE = 9 REVERSE SEEKS 
S455 O20252 163737 OOS716 O0SS12 4S: SUB IC,NCYLL SOE CRE MENT NCYL1 
S456 Oc0e60 023737 005714 o0S512 CMP LCNCYL1 OEE TF LC EXCEEDED 
S457 O20266 003743 BLE :BR IF NOT YET 
5458 -D0 OSCILLATING SEEKS TOWARD FC 

S459 020270 022737 oOS712 oos714 &$: CMP FC,LC :SEE IF FC >LC 
Burs aac ee 005716 o0ss12 ar . NCYL1 ie eee? nevLI 

S462 020306 023737 O0671e Oosie =; CMP FE’ NCYLI *SEE IF FC EXCEEDED 

S463 020314 GO3410 , BLE 16g ‘BR IF NOT YET 
S4eE4 620316 900422 BR 125 :FC REACHED - ALL DONE 

E4es 020320 063737 OOS716 OOSS12 eS: ADD 1 NCYLL INCREMENT NCYLI 

S4eé 020326 023737 005712 CMP FC’ NCYLI -SEE IF FC EXCEEDED 
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GLLJRYOE SUBSYS. VERIF, : PART J MACY 27( 1006) OS-OCT-76 10:13 PAGE 10 S€6 2125 
éf-7— 10:83 te OSCILLATING SEEK TES | 
fe } BLT 128 ¢ REACHED - ALL D 
seceee segsie oossi2 oo0ccde 108: fOVv Co P.CYLN(RS)* ef CYL = NCYLI 
Rr aoee sabes o000de tt Peep + BEEKER NCRS) BEEK Ney! 
BASSES SOFIE ° 3 hae EE T5 Fe 
o00742 BR &§ : CONTINUE 
12$: 
CA ae Becca + te EY ted oe Ct a a + tetera 
:ATEST 7 CONVERGING/DIVERGING SEEK TEST 
i? THIS TEST PERFORMS SEEKS WHICH eonetes st CYLINOER DIFFERENCE 
:# veLUeS.. IN INITIALLY, etd =F A SEEK IS 
- c IN'T I L¢ + ig dn Se rENTES a 
:# 
is i th the Sete "ye ek ae re Te Pore 
i THES OF NTL “an Rc 7 Dnric Rey Ma Texceets Lt LC AND NCYLe 
i THIS TEs TEST _ Gauges cbEKING T6 TS WERGING. oe THEN DIVERGING 
so04 | regprmmennmennmennnnnnnn 
12737 090007 001324 MOV 87, STESTN T TEST NUMBER IN APT MAIL BOx 
Reuss Sances fee PET ERKITR £3 YE ITER NO. © O FOR THIS TEST 
00137 seneq3 the sti iH ooe to NEXT TEST ; 
;RETURN HERE FROM CHKITR IF TEST SHOULD BE RUN 
904737 927300 JSR PC, INITSS sINITIALI DRIVER PARAMS BND SUB-SYS 
004737 35R PC’ PREPKB ;PREPARE FOR POSSIBLE KBD INP 
513737 7i2 oossie MOV FESNCYLL T NCYL = FC 
73 2714 605514 MOV YL : =L¢ 
Ol 000002 2s: MOV RL, iP CYLNCRS) ery ert = NCYL1 
737 931742 ISR SEEKER ee dicate 
ios eat ooo002 ey mete SEbveR -CYLN(RS) ;SET ev 
022737 O0S712 oos714 MP FE’ : iS "F oe > Te 
3013 BGT ug’ :BR IF FC > 
062737 O0S716 oossie2 ADD wo, :f RENENT NCVL 
£37 716 0055 Ics NeLe a YL2 
623737 714 O055ie2 C LE'NCYLI SEE IF tints EXCEEDED 
002350 BGE 2§ ;BR NOT 
dosHie BR gs sLIMIT rat, - ALL DONE 
737 O0S716 oOOSS12 4s: Sug IC, NCYLI : DECREMEN 
737 005716 905514 ADO IC'NCYL2 INCREMENT NCY 3 
023737 005714 005512 CMP LE'NCYLI : SEE IF LIMITS EXCEEDED 
003735 a BLE 3g :BR IF NOT YE 
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hy TEST 10 PSEUDO-RANDOM SEEK TEST 





Ow 


ooezt: 001324 





: PART | MACY 11 get tS) OS-OCT-76 10:13 PAGE 107 SES 519 
T10 PSEUDO-RANDOM SEEK TEST 


3 THIS ORE. litte ane OPEN the K TOA od a Pes al CHOSEN 


SI enemas poeepinaemenae cB TE 
710; 
810, $TESTN ; TEST NUMBER IN a oo Box 


. Pe Bale a d TER nO. = : BEe FOR THIS TEST 
one at TEST 


: RETURN vent FROM Stl ap IF TEST’ SOUL BE R 
ISR PC, INITSS s INITIALIZE ae PARAMS BND sug-Sys 


SR PC’ PREPKB i PREPARE FOR POSSIBLE Ke INPUT 
35R K ‘SELECT A PSEUDO- RANDOM CYLINDER 
MOV gyLNOR P.CYLN(RSS ;SET CYL. VBL 

ISR C, SEEKER :SEEK TO THIS YE INDER 


ERR ESARE REE RERESEERESSESESE SERS SESE ESSELELSESELSAEASEE SE EELS 
TEST 11 MAXIMUM VELOCITY REVERSAL SEEK TEST 


THIS TEST te ig = - "9 WEN ANDES &. O, FOLLOWED BY 
SEEK TO CYL OCT) ae a aie THIS 


SP URNA een GPA 


+ SEFEELLELLEFSELELELAE LALA AE LA EL LAL ELLAALALELELLLAEELELEFLATLAELE 
lis § 


MOV #11, $TESTN -SET TEST NUMBER IN APT MAIL BOX 
ISR pc, SETTUP dey uP FOR Looe ON ERROR 
JSR PC’ CHKITR :SEE IF ITER. NO. =O FOR THIS TEST 
IMP tStie : JUMP TO NEXT TEST 
: RETURN Hens FROM CHKITR IF TEST SHOU BE FUN 
J PC, INITSS s INIT ALIZE DRIVER PARAMS AND SUB-SYS 
35R pC PREPKS ;PREPARE FOR POSSIBLE KBD INPUT 


ur: oe ten 
4 


wee ee we we ee oe ee ae ae 


¢ SEEKE K’TO CYL 0 
MOV #201, P. CYLN(RS) SET CYL = 20k (OCT) 
JSR PC. SEEKER ; SEEK TO CYL 201 
eLr P_EYLN(RS) T CYL = ‘ 
ISR PC, SEEKER : SEEK TO CYL O 


[ soemuequsanensesenssnsetunrcoenesstecestaseatennnipenneneanee 
TEST le MECHANICAL VIBRATION SEEK TEST 


ST PER deg SEO me Tere ae INCREASING SEEKS WITH 
ICALLY DECRERSI i rlince noted inte 
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1 er 
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TENT TO INDUCE VARYING vIBRA TIONAL 
| EST BEG] SPER LC = je AND ST = SM. THEN, 


OR 
& DONE BETWEEN O AND TEN TIMES. THEN, ST Weeit 
SY 2 AND LC IS SOURED” "AND SEEKS ARE DONE Bi 

C AGAIN, TEN TIMES. THIS PROCESS IS CONTINUED ee AP 
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PART | MACY11 27(1006) OS-OCT-76 10:13 PAGE i08 SEG 5197 
Nec CHANICAL yibRat Ton SEEK TEST 


:# UES OF L EXCEED O (OCT). THEN, 
i toe tsoe E Process fe Bo eaceS FF its er Seine possces ane 
:* LC OI PTBED BY 2, UNTIL L BECOME 
eS cdamboomnert se cic aie MONE ti. «ite ie 
*éT12: SCOPE 
MOV : 2 TESTN T TEST NUMBER IN APT MAIL SOx 
JSR eT Erte Se Te FoR OR LOOP ON RROR . 
SR FOR THIS TEST 


JMP Sti jue TO. next TEST. 
; RETURN “ert FROM ncoTR IF RUN 


it TAL foe DRIVER PARAMS aS p8-sys 


38 PC’ PREPKB : RE PARE FOR POSSIBLE KBD INP 
Mov $i‘ CYLNDR SINIT. CURRENT CYL TO 1 
SM ST :INIT. STALLS TO SM 
DO INCREASING SEEKS 
2S: MOV  810.,SCRACH ;INIT. LOOP COUNTER TO 10(DEC) 
MOV STMPE STALLS | SET CURRENT STALL IN S*ALL WORD 
4§: CLR P.CYLATRS) :SET CYL = 0 
ISR PC. SEEKER *SEEK TO CYL O 
MOV CYLNDR,P.CYLN(RS) ;SET CURRENT CYLINDER 
ISR PC. SEEKER ;SEEK 70 CURRENT CYLINDER 
DEC SCRACH ; DECREMENT OOF COUNTER 
BNE 4§ :BR I> NOT § TIMES YE 
CLC :CLER2 GARBAGE BIT 
ROR STMPE ‘DIVIDE STALLS BY 2 
ROR STMP? :SAVE THE DROPPED STALL BIT 
ASL CYLNOR :DOUBLE THE CURRENT CYLINDER NUMBER 
BIT SSITOS,CYLNDR :SEE IF DONE WITH INCREASING SEEKS YET 
BEQ 23 :BR IF NOT DONE YET 
-DO DECREASING SEEKS 
&§: ASR CYLNOR sDIVIDE CURRENT CYLINDER BY 2 
ROL §TMP? ie A SAVED STALL BIT INTO CARRY 
ROL STMPG OUBLE THE STALL 
MOV 810. ,SCRACH INIT. LOOP | COUNTER TO 10(DEC) 
MOV STMPE STALLS § ;SET CURRENT STALL IN STALL WORD 
2s: CLR P.CYLACRS) sper CYL = 0 
ISR PC, SEEKER TOC  o 
MOV ESCROR B. CYLNcRSS ser. CURREN CYL NUMBER 
JSR PC SEEKER :SEEK TO CURRENT CYLINDER 
DEC SCRACH EE ReNENt LOOP COUNTER 
NE ag ‘BR IF NOT § TIMES YET 
SIT #81TO1,CYLNOR ;SEE IF DONE YET 
BEQ 6 R IF NOT DONE YET 
MOV ST, STALLS :RESTORE DESIRED NO. OF UNIT STALLS 


s ireer ig MAX ROTATIONAL, LATENCY MEASUREMENT 
ATE 13 TATIONAL LATENCY IRE 

ie test MEA SURES ROME INTERVAL OF TIME "BF WEEN 2 INDEX MARKS 
*#IN A SINGLE ISK ROTATION. THE SPECIFIED MAXIMUM ROTATIONAL 
jALATENCY = €5 MILLI-SEC + OR - 2.5%. THIS MEASUREMENT IS MADE 


j[etaeetaeraieenssessonsensssonesssssnssnsssassssnssanennsanonss 
T13: SCOPE 


rr 




















MOnTL-OEREN-C = RAG LL/RKOS SUBSYS. VERIF. : PART MACYL1 27(1006) OS-OCT-76 10:13 PAGE 109 SE 0108 
“perehe Pil as-oet=7e e:83 t13 MAX ROTATIONAL LATENCY MEASUREMENT 
144 012737 900 001324 MoV STN :;SET TEST R_IN APT MAIL BOX 
ze tied BASSES RERRLE y Be testa ee STE OEE on ERROR 
| Be SHG Hee Bye Be Fine eta ete Weer © SH 
. . ‘ ‘ ~ 
| 33 roel es ; RETURN “ERE FROM CHKITR IF TEST SHOU Ay ee ain 
at SStISS BRNSSS BEERS yee Be ARDEP ala sas rob eur 
seve Seli7e 106737 003123 TST ota E JF IJMING TESTS ARE AL 
-= Eis Bais 900004 Fue is By Te TO NeXT 
eg SEiZi0 008737 032260 a8: JSR PC, CALBRT ; CALIBRATE SOF THERE TIMER 
3 FES ceires TSTI4 ; ERR OR RETURN ADDR FOR CALBRT 
| $648 CELE1 OOSTi? opesse 158 eC, INIVRS SINIT VARIABLES TO BE USED 
4 C21E22 isos? SCEl1o CRB 3 j INAIBIT Ca te ESCAPE 
| Eel GOES ante: ;READ cists TO Thay I omni SH ane ere 
ere 021230 42785 000020 900007 BICB g.ceRt, Fein SET "so 
| 5655 SE1EM 1127S OO0r2E 000001 MOVE AO HOR COMMAND 
| eri Delen Ooaza? Oa7eee JSR ee FO HOR TO SET FORMAT TO 0 
| 865s Ogisso ile737 O00051 003110 Hove se Fey} ‘ALLOW iC, 12 ESCAPE 
| $556 ; CHANGE FORMA T AND’ READ HOR TO FIND 1 
5? 02125 o0to09 2s: CLR INT KOS INTR INDICATOR 
| 53 21260 C1277? ozi744 1eisve MOV SRHEDHO, ORKVEC ;5E? SFECTAL RKO HANOLER ADDRESS 
f S2iz6& 50500 CLR sR INIT TIME-OUT INDICATOR 
| S660 D21270 is27E5 ococeo ooo007 TS8 sw. CENT, P.CSLH(RS) |; jCOMPLEMENT FORMAT BIT TO 1 
 «+§66] Of127— 527s 10000 o000ie 15 aCFMT,P:CSICRS) ;COMPLEMENT FORMAT BIT TO 1 
Ste 521304 10527 02]325 MOV RS 4s" GET PARAMETE 
| §663 021310 004737 097776 J5R PC! STRC :STORE PREV AND CUR T comman 
Bee4 21314 So4747 050006 # eR PELC.INI sINITIATE A READ oe 1 Ino. TNEEX 
«S626 SE1Ez2 szERte 68: se7° Bo ;SEE IF RK roe NTR REC'D YET 
5267 021324 00101 BNE gs BR IF RKO6 INTR REC'D 
Sse 52122 a INC Fi : INC RENENT TINE SOUT INDICATOR 
«bees 5ets36 pe BPL :BR IF NO TIME-OUT 
5670 Cziz32 009727 o41074 73: ISR :GET COMMAND FOR REPORT 
S671 O2133& 904737 o43€00 ISR pc’ TSPROC ;GATHER STATUS 
3576 Beizte 08105 EBROR 108 Te ON READ HEADER 
S674 CelEe = 105515 28S: RESREG 
| §675 O2i3s0 (C00770 Fs 73 ERROR OR EXIT 
+, Spe ‘ ; CHANGE ORMAT AND READ HOR T0 bier 0 NEXT_INDEX 
S677 021252 905000 es: RO ; INIT KOE INTERRUPT INDICATOR 
5678 621354 S555 xh ORS :INIT HI CYCLE COUN 
6679 Czizts GI0Eo: MOV = sdRS, RL SAVE PARAM BLK 
S600 021250 S10637 oosszz MOV RE SCRACH 
S68. Oeis64 OCSO0S CLR RS 
Se62 C2list i42761 oo0oce2 oog007 BICB = #&. CFMT,P.CS1H(R1) ;COMPLEMENT FORMAT BIT TO 0 
Ecey Esidos Dieies Acbie DeD0dE BI BENT ELCELIRL) GCOWPLENENT FORMED BET 10D er annex 
be 140e 000 V : ( . : 
S665 21410 355 032516 JSR Pe FINE sReAGuRe THE TIME TO NEXT INDEX 
Ses 021414 021332 75 RROR RETURN ADDRESS 
co7 ;CONVERT MEAS’D CYCLES TO TIME aid CHECK “AGAINST LINITS 
SoS C2146 104407 SAVREG SAVE RO-R5 
S689 021420 004737 033504 JSR ss PC,CNVTIM = ~—ss ; CONVERT _MEAS’D CYCLES TO TIME 
S630 021424 021346 285 ‘}ERROR RETURN ADDRESS 
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; PART | MACYLL 27(1008) OS-OCT-76 10:13 PAGE 110 
13 MAX ROTATIONAL LATENCY MEASUREMENT 
ADD R2 ate ;ADD CONVERTED TIME TO SUM 
A 
JSR a K FOR (#0) OR (12) KBO INPUT 
: COMPARE” fe F3 soit URRENT nin tO MAX MEASUREME 
R2,M ;COMP HI BITS TO HI MIN 
ei : BR if > MIN 
L fe TF < MIN 
CMP R3, MINILI :COMP LO BITS TO LO MIN 
BHIS es -BR IF > OR = MIN 
30$: MOV 2, MINIHL :SET NEW MIN 
MOV ene MINEL 
328 che :COMP HI BITS TO HI MAX 
0 14 :BR IF < MAX 
BHI 348 :BR IF >» MAX 
CMP R3. MAXILI :COMP LO BITS TO LO MAX 
BLos = s«148 :BR IF < OR = MAX 
348: MOV Re, MAXIHI :SET 
MOV R3°MAXILI 
SCOMPARE MEAS’D Tite TO “gece rab LIMITS 
14§: ome #MINH : COMP BRE HI BITS TO HI MINIMUM 
BHI ise" BR IF > MIN 
BLO 16 :BR IF < MIN 
CMP RS aMINLOL COMPARE BITS TO LO MIN 
BHIS 1 :BR IF > OR = MIN 
i$: INC BLWMIN INCREMENT COUNT OF TIMES | BELOW MIN 
18S: CMP R2 sMAXHI] CO MPARE HI BITS TO HI MA 
BLO 22$ top IF MAX 
BHI 208 -BR IF 
CMP R3, #MAXLOL : COMPARE i *aITs TO LO MAX 
Bos 6-22 -BR IF < OR = MAX 
208: INC ABVMX1 HINOREMENT COUNT OF TIMES ABOVE MAX 
223: RESREG RESTORE R 
INC R3 : INCREMENT MERSURENENT COUNTER 
MOV SCRACH, RS :RESTORE PARAM BLK ADDRESS 
CMP #128. ,R3 i EE IF 128 MEASUREMENTS YET 
BNE 2 “BR IF NOT aoe WITH MEASUREMENTS YET 
;DVIDE SUM BY 128, TO GET AVERAGE TIME OF ROTA ION 
MOV 7,R4 ;SET LOOP COUNTER 
248: CLC :DIVIDE DOUBLE-WORD oun BY 2 
ROR SUMHI 1 
ROR SUMLO1 
DEC RY : SEE IF DONE WITH DIVISION 
BNE 248 :BR IF NOT DONE YET 
: TYPE TIMING MEASUREMENT RESULTS’ (IN hee IMAL ) 
BIT 1T03,CS :SEE IF TIMING TEST REPORTS SHOULD BE INHIBITED 
BNE He :BR IF REPORTS SHOULD BE INHISITED 
TYPE ROTIMS :TYPE “ROTA TIONEL TIMES : 
MOV BMINIL1,R1 sPOINTER TO LO M 
ISR PC. TYPMIN TYPE MIN MEAS'D TIME 
MOV BLUMIN, -(SP) GET COUNT OF TIMES BELOW MIN 
TYPDS ; CONVERT eto? YPE IT 
TYPE BELOW TY TYPE cate 28 BELOW MIN OF ™ 
TYPE LIM SPEC’ NIN LIMIT 
MOV BMAXIL1,R1 OTTER TO LO MAX 
ISR PC,TYPMAX .  ;TYPE MAX sete: D TIME 


SEG 0199 
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RKELI Sys. VERIF, i, PART MACYLI 27(1006) OS-OCT-76 10:13 PAGE 111 SEG 0110 
See otic wax ROTATIONGL LATENCY MESEURENENS stn 
0137 003162 MoV ABYMX] , -( SP) TIMES ABOVE Max 
ea ne cha Ee 
14401 012062 T , ABOVE MAX OF ” 
104401 012303 TYPE spe" 0 one baat 
012701 oOO316é MOV BSUMLO1, RL :POINTER TO AVG TIME 
0047 3626 JSR PC. TYPAVG Tee eet TIME 
i 901315 TYPE : F) 
lz 4506 161070 368: MOV RI. INTR,ORKVEC RESTORE RKOG HANDLER ADDRESS 
000177 177250 IMP als ‘PROCEED TO NEXT TEST 
s SFSSSSSSSLSSASSFRELERALASERSALLAERRAASE RE LALA SRELRESRSSLRSSLSLESSE 
‘ :RSPECIAL INTERRUPT HANDLER FOR READ HEADERS IN ROT. LAT. MEAS. TEST 
om a. eT oe Th ane 
abese AiEDHO: 3 i Ro ieee I HEROLER 
oosrée 900000 RECS (R2) E ig NEORTROLLER OR SET 
000137 o44506 oe I. INTR hes RIVER PROC SS THE ERROR 
22 28: RTI RETURN FROM I 
$3 itecT id ONE CYLINDER SEEK TIME MEASUREMENT 
:$TEST 14 ONE C B SEEK TIME NEASLR EMENT 
:¥THIS TEST MEASURES Tey ME REQUIRED T0 SEEK SETWEEN 2 AJACENT 
:#CYLINDERS, BOTH IN THE F ORLIARD AND REVERSE DIRECTIONS. SEEKS 
: #ARE DONE fo 6,1.2 632 THEN TO 631,630,...,2.1, 
# AND THE RESULTS ARE fT SBeh” FOR EACH DIRECTION. 
:#THE SPECIFIED ONE CYL SEEK TIME IS <« 8 MILLI-SEC. 
+ SELESESSSESSSERELAEASESESELASRELFELERESLHASSRARERLLERELELAFLHESE FSFE 
00 +4714: SCOPE 
012737 0000:4 001324 MOV #14, STESTN TEST NUMBER IN APT MAIL BOX 
004737 930032 ISR ¢, SETTUP :ieeT UP FOR LOOP ON ERROR 
004737 930100 ISR PC’ CHKITR ; SEE IF ITER. NO. = 0 FOR THIS TEST 
600137 dee IMP i UMP TO NEXT TEST 
RETURN HERE FROM CHKITR IF TEST SHOULD BE RUN 
004737 9027300 JSR PC, INITSS s INITIALIZE DRIVER PARAMS BND SuB- Sys 
004737 925330 JSR PC’ PREPKB :PREPARE FOR POSSIBLE KBD INP 
105737 603123 TSTB = DOTIM :SEE IF TIMING TESTS ARE al OLED 
Obie BNE 2g °BR IF ALL 
000177 900004 13: IMP a4s Sk IP TO NEXT TEST 
004737 032260 es: JSR PC, CALBRT :CALIBRATE THE SOFTWARE TIMER 
2302 TST1S sERROR RETURN ADDR FOR CALBRT 
004737 o325s2 JSR VRB INIT VA VBRIRBLES USED 
112765 006117 oo000! MOVE ast, P. CHINO CRS)’ joel SEEK COMM 
—& 900002 CLR NcRS) : {NIT T i 
004737 0376€2 ISR VCAL :D0 INITIAL SEEK TO CYL O 
j MEASURE FORWARD rape i Ne 
oos26s op0002 és: INC ; INCREMENT CYLINDER BY | 
904737 O32660 sR pe THMSER :MEASURE A SEEK TIME 
0223 TSTIS :ERROR RETURN ADDR FOR CALBRT 
060137 o02166 ADD R1, SUMLOL !ADD MEAS'D TIME TO FORWARD SUM 
005537 002:70 ADC SUMHT 1 
960027 003170 ADD RO, Su I 
004737 035700 ISR PC’ CTLOU ;CHECK FOR (tC) OR (tZ) KBD INPUT 
: COMPARE FORWARD fthe” 76 CURRENT FORWARD MIN AND MAX 
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ONE CYLINDER SEEK TIRE MEREUREMEN SEG C11 


Mey PescrPtin Sat fare To ER 19 seh nin cee ree AND MAX 


: COMPARE FORWARD etme 0 SPEC'D 
MP R SHAXHIS MORE ; BITS TO HI MAX 









LO 12$ ee IF < 
BHI 10$ BF IE 
CMP Ri. aMAXLOe2 : COMPARE ts "BITS, TO LO MAX 
BLos 3S s«1 -BR IF < OR 
10$: INC ABVMX1 :IN CRENENT. COUNT OF TIMES ABOVE SPEC’D “ax 
WARD SEEK DONE 


les: CMP #632,P.CYLN(RS) ‘ope IF LAST FOR 
BNE BR IF Not DONE 
;MEASURE A REVERSE SEEK TIME 




















148: DEC PCYLN(RS) :DECREMENT CYL By 1 
JSR PC, TIMSEK :MEASURE A SEEK TIME 
TéT15 TERROR RETURN ADDR FOR CALBRT 
ADD R1, SUMLO2 :ADD MEASURED TIME TO REVERSE SUM 
ADC ae 


JSR CTLOUT ;CHECK FOR (tC) a ste KBD INPUT 
onapeian* ha SE “ith TO CURRENT REVERSE MIN AND M 
NIL2 . ;SET al TO CURRENT MIN AND MAX 


TSR HA CMPT :C O MEAS*D MIN 
: COMPARE ag VERSE nie TO SPEC’ D MAX rf nT. 
RO, #MAXHI2 : COMPARE HI pits TO HI MAX 
sr a :BR IF < 
BHI 16$ :BR IF 
CMP Rl. #MAXLO2 + EOMPARE i *aITs TO LO MAX 
BLos)~=Séséi BS :BR IF < OR = nex 
iss: INC ABVMxe2 INCR COUNT OF TIMES ABOVE SPEC’D MAX 
igs: st P. B EYENCRS) : SEE IF be LAST REVERSE SEEK DONE 
; COMPUTE AF ORARD. 8 REVERSE seek a ve 


OF MEASUREMENTS 
oH C, GETAVG COMPUTE, RVER AGES 
; TYPE TIMING rEASLRERENT RESULTS’ CIN DEC INA 
BIT 1T03,CS er TENG TEST REPORTS S SHOULD BE INHIBITED 


BNE fe IF REPORTS SHOULD BE INH 

TYPE ONECYL YPE “ONE CYL SEEK TI 

MOV RABOVE!,.R2 pes POINTER TO MAX SPEC’ D LIMIT MSG 
JSR PC, PvE Tite : TYPE TIMING TEST RESULTS 


Cy aaa eo ao cecal cnain 
SATEST 15 AVERAGE SEEK TIME MEASUREMENT 

;#THIS TEST MEASURES THE TRUE AVERAGE SEEK TIME IN BOTH THE FORWARD 
#AND REVERSE pe Lae. THE AVERAGE TIME IS CALCULATED FROM THE 

{FOLLOWING FORMULA : 

i® T AVG = (11410) (2)472¢409)(2)+.. pe TULOC A) £6) J2 (810) (480) 

;# RE TX = THE MEASURED TIME TO SEEK X CYLINDERS. 

iRECRUD AND REVERSE TIMES ARE MEASURED AND TYPED, 


TELY 
;*THE SPECIFIED AVERAGE SEEK TIME IS < 38 MILLI-SEC. 
+ LEREEEEEAERELLE REEL ELAR ERR ERA REARS EERE REALE RARER RAL EEEERERESER 


+éT15: SCOPE 
MOV #15, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 





am 


Beue 


£ln-Ow 


CNT CNUNT ONTO Un COTO 


20.00.0000 
ee ee 


5 Dy 5 ng » ws ee SUBSYS. 


0:03 


B30186 
022640 
027300 


Bu 
Mert 
032552 
000117 
g00d02 
cee 
Ba 
005512 
Baas 
033062 
000002 
032660 
033126 
0055 le 


011601 


OSe4be 
003172 
003174 
oat 


Olecs4 
011744 





000001 


005532 


oo00c2 


000832 


VERIF. : 
T15 


MOV 
; TYPE FORWARD AVERAGE 
TYPE 


YPE COM 
: TYPE REVERSE avtace 
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AVERAGE SEEK TIME MEASUREMENT 


PC, SETTUP :SET up FOR LOOP ON ERROR ‘ 
pc’ CH ITR SEE IF ITER. NO. = 0 FOR THIS TEST 
TSTi : JUM fo NEXT TEST 
vert FROM q-OITE. IF TEST. sro 0 FE RUN 
Ti & DRIVER panne 1 SuB- Sys 
Be PREPKE PaEPaae FOR Ne PELTS 
potin g Hatt fia NG A akan 
a4$ Scr 10 oor TEST 
PC, CALBRT ‘CALIBRATE THE SOFTWARE TIMER 


sERROR RETURN ADDR FOR CALBRT 
PC, INIVRE INIT VARIABLES 
#SEEK P.CMND (RS) " iseT SEEK ¢ 
pCYLACRS) E K Ni I 
Nee SE : it iT raat 
#411. ,SCRACH sINIT SOeFFiCTENT 16 at cpec) 
NCYL1 R DESTINA YL 


SCRACH t DECREMENT COEPP TC TENT 

NCYLI,P.CYLN(RS) 

PC, TIMSEK ;MEASURE A FORWARD SEEK TIME 
‘ERROR RETURN ADDR FOR CAL BRT 

PC, FOTERM :COMPUTE AND ADD A FORWARD TERM 

P.CYLN(RS) - :SET CYL TOO 

PC, TIMSEK :MEASURE A REVERSE SEEK TIME 
?ERROR RETURN ADDR FOR CALBRT 

PC, RVTERM :COMPUTE AND ADD A REVERSE TERM 

NCYLI, #410. i SEE IF DONE MEASURING YET 


:BR IF NOT DONE YET 
GSEK -TYPE "AVERAGE SEEK TIMES” 
sin BY (410)(4103 


01,R0 ;GET DIVIDEND 
SuMnT a RI 
SUMLO2; Re 
SUMHI2,R3 
RY :GET DIVISOR 
#37028. RS 
PC,M. DPID :PERFORM DIVISION 
R2, SUMLOL :GET FORWARD AVG 
R3 SUMHI1 
SUM BY (410)(410) 
MAXIL1,RO ;GET DIVIDEND 
MAXIHI‘RI 
MAXIL2. Re 
MAXIHe R3 
PC 1D :PERFORM DIVISION 
Re, SUML Oe :GET REVERSE AVG 
R3’ SUMHIO 
FORWRD ; TYPE “#2*FORWARD DIRECTION##«” 
ail Rl :FOINTER, 1a eteRR AVG 
PC. TYPAYG D AVERAGE 
x SPE "SPEC’D MAX IS 40000 US” 


»REVRSE ;TYPE “##*REVERSE DIRECTION##2” 














on 


ZRKOG SUBSYS. VERT? 
10:03 


003174 


000016 
030032 


003123 
000904 
032260 
C3eSSe 


000117 
00 

037662 
005532 


003¢0e 
03317e 
o0c0o! 
022370 


003162 


000002 
032660 


003172 
003174 


001324 


000001 


o0000e 


: PART 1 
T15 


MOV 





MACY11 27( 1006) 
AVERAGE SEEK TIME ME sSUREMENT 


sSUMHI2,R1 
Pc, Tyeavc 


Pt, INITSS 





asteK, are CMND(RS)’ 
AcRS) 


OP 
MOV #16, STESTN 
ISR pc, SETTUP 
TSR PC’ CHKITR 
ISR 
JSR PC’ PREPKB 
TSTs8 DOTIM 
BNE 2$ 
IMP a4S 
ISR PC, CALBRT 
TST17 
JSR VRB 
MOVB 
CLR PC 
ISR pe CORVCAL 
CLR SCRACH 
jMEASURE | FORWARD SEEK 
SR tMSEK 
ABD. R1, SUMLOL 

ADC SUMHI 1 
RO, Sut HI1 


JSR Bt 
; COMPARE FORWARD THe TO” SPEC'D hax 
CMP RO, #MAXHI4 


BLO fe 
BHI 10$ 
CMP Ri. wMAXLOY4 
BLOS ict 
S$: INC aBvM 
“MEASURE A REVERSE SFEK TIME 
2S: +~CLR P-CYLN(RS) 
ISR PC, TIMSER 
1ST17 
ADD R1, SUMLO2 
ADC SUMHI2 


TIME 
Bet P.CYLN(RS) 


etre 10:13 PAGE 114 









Yer RE TO REVERSE AVG 


PE MSEECTE 


AYERA 
+ I 


ah THE SU8-SY 





inti RXIAMN EEX TICS 
t 4 Pee ie FINE REQUIRED Tone 
isThis EST MEASURE HE EQUIRED TO ae FORM CYL 0 19 
i e32 CT, (410 DEC), THIS TIRE RE NTS THE MAXIMUM SEE 
MEASURED 128 TIMES IN EACH DIRECTION. 
ithe ape defen MAXIMUM SEEK TIME IS < 75 MILLI-SEC. 
ee Pe ee en 


-SET TEST NUMBER IN APT MAIL BOX 
det up FOR LOOP ON ER 


F ITER. NO. 
0 NEXT TEST 


SEE IF 


MP TST 17 ; JUMP 
HERE FROM CHKITR IF TEST SHOULD BE RUN 
PC, INITSS IN ITIALIZE DRIVER PARAMS AND pe-srs 
PREPARE FOR POSSIBLE KBD INPUT 
TIMING TESTS ARE ALLOWED 
;BR IF west a 
;SKIP_TO NEXT TEST 
:CALIBRATE THE SOFTWARE TIMER 


s ERROR RETURN ee CALBRT 


;INIT VARIABLES U 
COM 


“SET SEEK 
:tNIT CYL 


;D0 INITIAL SEEK TO CYL O 
INIT MEASUREMENT COUNT 


;SET CYL = 
;MEA 


632 OCT. 


SURE A SEEK 


K TIME 
ERROR RETURN ADOR FOR CALBRT 
ADD MEAS’D TIME TO FORWARD SUM 
FOR gs OR KBD INPUT 


MAX 
TER 70 CURRENT MIN Bay MAX 
TO MEAS'D MIN AND MA 


LIMIT 
"COMPARE HI BITS TO HI MAX 
iBR IF < = 


ISR PC TOUT ; CHECK 
; COMPARE FORWARD “ie TO CURRENT” FORWARD MIN 
MOY INILL Rs SET POIN 


;BR IF 
COMPARE ie gt he LO MAX 
;INCREMENT COUNT OF TIMES ABOVE SPEC'D MAX 


;SET CYL = 0 


:MEASURE A 


SEEK 


TIME 
;ERROR RETURN ADDR FOR 


CAL 
;ADD MEASURED TIME TO REVERSE SUM 








ROR 
= 0 FOR THIS TEST 
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té MAXIMUM SE K+ 


Ser2 S086 Donte? O3e700 Tok __Pe’eTLout K.FOR (46) 08 (42) KBD INPUT 
é é 
Pe : COMPARE “REVERSE. fii fo. "wes ‘REVERSE fan SAD 
$74 023062 012703 003212 TER Te CURRENT MIN Bho Max 
5975 023066 004737 033172 TSR Pe, CHET EN nPARe Mt MEAS'D MIN AND MA 
2358 307 7 000001 ae pel . Ea Fae HI BITS TO HI MAX 
rd 
$78 9230 rari BLO 13$. R IF < MAX 
£979 923100 10100%3 BHI 16$ :BR IF > MAX 
€980 023102 O20127 022370 CMP Rl. #MAXLOY  ConPaRe Lo BITS TO LO “MAX 
Eags S5att8 boas 4 1 FLes be vuxe ut ME RBQVE PEC’D MAX 
eae ee thes? ties o0ss32 ie: i SERACH cy ee = eli? COT ce 
5s Besise | B83 ‘ es See of not 0 HET He 
Es sCOMPUTE FORWARD AND REVERSE seek atte A VERAGES 
5987 023130 012703 900200 MOV #128. Ra NO. OF MEASUREMENTS 
5988 023134 004737 033244 ISR GETAV Coreut E AYE 
238g 023140 032737 000010 ojs750 hse esa nensuReneNT ‘esuLts (Ih cee E ai TEST REPORTS SHOULD BE INHIBITED 
P23) 2146 001255 BNE 1$ ier ol »REF ORS SHOULD BE INHIBITED 
Peas peste JOMIOL 011663 Mite BOVE 83 POINTER TO HX. SPEE'D LIMIT MSG 
Eas: $52} 0 546593 puei ge Wee COPY Bene he gHNTER TEST REeuL fs 
| 53% 
59se SESE AHRKSLESSLESAAARAREAASL RSA LHLERLSLARAAAF SERRA FE LAAALEFERAFLKLE 
| 5999 ti 1 SECTOR ADDRESSING TEST 
£000 :#IN THIS TEST, ALL SECTORS OF FC, FT ARE WRITTEN, EACH WITH 
£001 ; #256 (DEC) WORDS OF ITS OWN SECTOR NO. + LOD(OCT): NEXT, FOR 
£002 ?#EACH SECTOR WRITTEN A WRIT CHECK 18 D , FOLLOWED BY A 
003 ;*READ AND SOFTWARE COMPARE OF THE DAT 
| £004 pron Aint, Mh went Bt gy Bl, BRO IIE A ts 
022164 900004 +8717: SCOPE 
| §006 O23166 012737 000017 001324 MOV #17, STESTN ;:SET TEST NUMBER IN APT MAIL BOX 
| €007 923174 004737 030032 JSR pc, SETTUP :SET UP FOR LOOP ON ERROR 
6008 O23200 904737 630100 5K PC’ CHKITR i SEE IF ITER. NO. = O FOR THIS TEST 
£009 Oes204 000137 023604 JMP TSt20 JUMP TO NEXT TEST 
£010 sRETURN HERE FROM CHKITR IF TEST SHOULD BE RUN 
6011 023210 004737 027300 ISR FC, IN TSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
022214 004737 025330 JSR PKB *PREPARE FOR FOSSIBLe k KBD INPUT 
| §013 Oez2e0 1ie7és 000123 o00001 MOVE PLATA P.CMND(RS) ;SET WRITE DATA COMMAND 
| BO14 Q23ee6 013765 005712 000002 MOV FC,P.CYLN(RS) ;SET CYL = FC 
| 6015 023234 113765 005720 00005 MOVE FTP. TRCK(RS) :SET TRACK = FT 
| 6016 023242 013737 005712 001174 MOV FC’ SREGS :SET PACK ADR FOR ERROR PRINTOUT 
| €§017 023250 6013737 005720 901176 MOV FT: SREGS 
| 6018 023256 0905037 901200 CLR SREG7 
| 6019 105065 00004 CLRB = &P. SECT RS) :SET SECTOR = 0 
| €020 023266 612765 063526 oooDl0 MOV #RWBUF ,P.BALOC(RS) :SET DATA BUFFER ADDRESS 
eel 022274 012765 177400 900012 MOV 8-256. /P.WC(RS) :SET WORD CNT FOR 2S6(DEC) WORDS 
:SET NUMBER OF SECTORS’ IN R3 
| 6023 023302 012703 oD0024 MOV #20. .R3 :SET R3 INITIALLY = gg0(0EC) 
| §024 023306 105737 O031I5 TSTB FORMAT ; DETERMINE THE FORM 
| 025 023312 OOio0e BNE 4g ‘BR IF 20 SECTOR EORMAT 
+6026 023314 012703 op00z6 MOY #22. ,R3 :SET R3 = 22(DEC) 


ta a ic a i a A i a a Ra aa alt eters niet 


MD-11-D2REM-C - 


OZREMC.P11 


Suisn ese 


0s- 





RKB} 
-0CT- 


1os085 
105065 
116500 
e? 
47 
112765 
004737 
112765 
004737 
012701 
O0S004 
005037 
116537 
032737 
001045 


SR 


:03 


005532 


062045 
000005 


005532 


77. 000001 


000012 
001202 
001204 
177776 


000100 


000400 


oooo04 
000004 


SUBSYS. toe | 


001110 


000001 


000001 


001200 
005474 


063420 
1sS420 
005532 


001206 
155360 


LO9 
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SEG 


ads Me THE © eee Pe roe WITH THE SECTOR NUMBER + 100(0CT) 


ey Boa $Rbb 186181) to SECTOR 
JSR Pc, LODSEC THE ENTIRE BUFFER WaTH SECTOR NO. + LO0(OCT) 
JSR ¢; DRVCA toRIT THe 2 T 
INCB OP. SE CT(RS) : INCREMEN ECTOR NO. 
CMP8 4 =soR'3, P.SECT(RS) SEE IF LAST SECTOR WRITTEN YET 
BNE 4g’ :BR IF NOT DONE YET 
HOV #. SLPERR :SET NEW LOOP ON ON ERROR ADRS 
cLRE pA SECT ) eT He, 198 LOO OR sil 
-DO WRITE CHECK OF A SECTOR 
83: MOVE -P.SECT(RS),RO GET SECTOR INTO RO 
ADD #100 : ADD 190 0CT) TO SECTOR NO. 
JSR Be LODSE tL WITH SECTOR + 100(0CT) 
Nove BATCH P p..cHND(RE) SET init TE Che CHECK COMMAND 
sREAD THE SECTOR AND COMPARE THE "DATA TO SECTOR NUMBER + 100(0CT) 
MOVES sROD bare P.CMND(RS) ;SET READ COMMAND 
JSR yeh READ THIS SECTOR INTO MEMORY 
MOV RUIBUF RET ADDR. OF DATA BUF INTO RI 
CLR RY ;CLEAR WORD NUMBER 
CLR SCRACH INIT. COMPARE ERROR COUNT 
MOVB  P.SECT(RS),SREG7 
gir ABEERR, , RECODE SEE IF B80 SECTOR ERROR OCCURRED 
10$: CMP RO, (RL)+ ; COMPARE BUF WORD TO SECTOR + 100(0CT) 
BEQ 20 :BR IF NO COMPARE ERROR 
TST SCRACH : CHECK Zs ROR COUNT 
BNE 12 :BR IF NOT FIRST ERROR IN SECTOR 
CLRB 0H701+38. :ADJUST DATA HEADER FOR MSG 
MOV #5, DF25+2 ADJ. ERROR DATA WORD COUNT 
ERROR 34 THE HEADING FOR ERROR MSG 
128: INC SCRACH CREMENT ERROR COU 
BIT #8170, aSWR ;SEE IF ALL ERRORS SHOULD BE REPORTED 
BNE 14 TO REPORT ERRORS 
CMP #10. ,SCRACH CEE IF IO(DEC) ERRORS YET 
BLT 225 ‘BR IF > 10. 
14S: MOV RG, SREGIO ; WORD NUMBER 
MOV RO’ SREGI! DATA 
MOV -2{R1),$REGL2 ‘BAD DATA 
ERROR : TYPE GOOD AND BAD DATA 
BIT #2176, aSWR ;SEE IF JUST 1 ER ROR SHOULD BE REPORTED 
BNE 225 IF JUST 1 ERROR SHOULD BE REPORTED 
208: INC RY H INCREMENT WOR D NUMBER 
CMP #256. ,R4 i EE IF DONE YET 
BNE 10$ :BR IF NOT DONE COMPARING YET 
22: INCB = PL SEC TRS) INCREMENT SECTO 
CMPB «RB, P.SECT(RS) SEE IF ALL SECTORS CHECKED YET 
BNE 8S :BR IF NOT DONE YET 


5 EERE EERE EE EKER EEE REE EE EER REA E EERE AEA EEE EERE RE RARE EER ERERER 
TEST 20 TRACK ADDRESSING TEST 
teIN THIS TEST, SECTOR FS OF CYL FC IS WRITTEN WITH 256 (DEC) WORDS 


0115 


ee 


£039 


KOK MMM OMe MK MOM MoM MOM COMMON MMMM MMM OMM Mmmm mmw or a 
WWIWlGGGudarururururur rorroru - © oO 
BRR OR BO RON bw Nourse wn-O DP BNIERE OES 


024040 


004737 
004 


Oo1355 


000049 


023736 
030032 
033674 


000003 


001324 


000001 
000002 


000001 


ooc00s 
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120 TRACK ADDRESSING TEST 
;#0F THE TRACK NO. + 190,967) FOR EACH OF TRACKS 0,1 

; WRITE CHECK OF EACH 5 OR 15 Dox DONE. TO VERIFY THE lattes, een EACH 
xO0F THE 3 EcI ors Is BESHeTT N, AND AFTER EACH WRIT OF THE 

i THREE SECTORS ARE WRITE-CHECKED fo DETECT TRACK ADDRESSING PROGLEMS. 
© RERLEEAAELA RARE LEAR ARSE LALA LAER LL FLA LAA REFERRAL RSHE RHEE LAEEHSESE 


+420: SCOPE 
MOV #20 STESTN -SET TEST NUMBER IN APT MAIL BOX 
ISR ¢, SETTUP det UP FOR LOOP ON 
= 0 FOR THIS TEST. 


ISR Be’ CHKITR SEE IF ITER. 
TO NEXT Heer 
: RETURN HERE FROM n OTTR. IF TEST’ ait s RUN 
ALIZE DRIVER PARAMS AND SuB- sys 
” PREPK RE FOR POSSIBLE KBD INPUT 
MOVB aiRDATA P, cnno cri “SET WRITE COMMAND 
MOV FC, P.CYLN(RS) sSE its FC 
Cepaxy K(RS) TIALIZE TRACK NO. TO 0 


CLRBOPP.. ; 
MOVE F E TRS) | 
MOV aRuGLP, B. BAL Rs: re Sate BU BUFFER ADDRESS 
MOV ectRey - SET WORD COUNT FOR 256(DEC) WORDS 
- WRITE Ty TRACK 0, . ae ocr) ) AT FS OF TRACKS 0,1,2 
4g: VB , 1RCK 35 Beek NR 
ADD 190(0CT) “TO TRACK NO. 
ISR 8100.60 ‘LOAD BUFFER WITH TRACK NO. + 100(OCT) 
JSR PC’ DRVCAL ‘WRITE THE SECTOR 


; INCREMENT TRACK NO. 
CMPB #3,P. TRCK(RS) i SEE IF ALL 3 pees WRITTEN YET 


BNE R IF N 
;D0 A WRITE-CHECK OF THE 3 SECTORS uRLITEN TO VERIFY THE DATA 
MOV PERR ;SET LOOP ON ERROR ADRS 
JSR PC, SETTUP : SET ts AEOR LOOP ON ERROR 


ISR TRKCHK 
;WRITE A SECTOR Ant RT TE ~CHECK ALL 3 SECTORS 
MOY :SET NEW LOOP ON ERROR ADRS 


#.,$L 
ISR pC’ Saale :SET UP FOR LOOP ON ERROR 
CLRB ss P. TRCK(RS) :INIT TRACK TO 0 
6S: MOVB P.TRCK(RS),RO iGET TRA OK NO. IN RO 
ADD #100 ADD 100(0CT) TO TRACK NO. 
JSR Bc LODSEC ‘LOAD BUF WITH TRACK + 100(0CT) 


MOVB SMRDAT RE 5 CMND(RS) :SET URITE DATA COMMAND 
PC, DRVC >RE-WRITE A SECTOR 
JSR PC’ TRKCHK soa Te Cre ALL 3 SECTORS 


INCB PP. TRCK(RS) +] 
CMPB =«s«s#3,P. TRCK(RS)  :SEE IF ALL 3 TRACKS RE-WRITTEN YET 
BNE 6$ :BR IF NOT DONE YET 
RWDTST: 
RUTINX=<$TN- 1) #2 *R/W TEST INDEX 
j Sessuacesudustesseeceeseesssunsseseeticececssesanneeeanaenenens 


;#TEST el READ/WRITE DATA TEST 
:*THE READ/WRITE DATA TEST HAS 2 DIFFERENT NERS TONS, DEPENDING 
j #0N THE VALUE OF THE DATA PATTERN PARAMETER ( 


i FOR PT =0: 
S STHIS TEST” 1S THE QUICK VERIFY DEFAULT DATA TEST, WHICH IS RUN 


SEG C116 
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6139 ;#WHEN PT=0, DUE TO PARAMETER INPUT. CHOICE, |0 OR R A0DRES S200 STaRT 1. oy 
14 pony is Test, "15, COMPRISED oF T BEF) putt Ne aA % WHICH REPEATS 

6142 iE EVE RY Seen RACK IS WRITTEN IN 4 SEGMENTS. FOLLOWED 

Pia ty RS EACH, WHICH M ip, aN THT Se TRE LING CCEURRE ON THE re . 

piss EGO lava Frac 

£147 FOR PT NOT =0: 

6148 is. fg TEST PERF ORNS REAQ/URITE FUNCTIONS oN THE ENTIRE RANGE 0 

£148 :#CYLINDERS (FC-LC), TRACKS (FT-LT), ECTORS (FS-LS) SPECIFIED, 

6150 :#AT EACH SP eles SECTOR we FOR De ¢ NOU CURR NT REPEATING DATA 

&151 :¥PATTERN AR EN AND THEN WRIT cHe CKED OLLOWED BY A RE 

£152 :#AND SOFTW THIS IS DONE L THE SPEC’D SECTORS ON ALL 

£153 :4THE TRACKS UST ASE TOR Is 1S AND’ Rag K INCR IT. 

6155 x THEN REPEATED USING 4 THE OTHER DATA 

6155 :¥PATTERNS CHOSEN IN PARAMETER PT THEN, EACH OF THE ABOVE OPERATIONS 

6155 ?#ARE REPEATED AT EACH OF THE REMAINING CYLINDERS, IN THE SPECIFIED 

6157 ?#RANGE, USING THE CYLINDER INCREMENT IC. 

£15¢ i NOTE THAT FS {ust BE CHOSEN « OR = LS. AND FT MUST BE < OR = LT. 

6159 *HOWEVER, FC MAY BE < OR > LC, AND fF FC>LC, THE CYLINDER 

£160 ADDRESS WILL BE BECREMENTED BY I¢ (INSTEAD OF INCREMENTED) TO 

616i :#OBTAIN EACH NEW CYLINDER ADDRESS. 

6162 © LERELLEEK SRE KESSEL KEE KALE EKA KHER AA RASA RRE RARER LE SRASEREAELKEKEE 

£163 24040 o00u04 +8721: SCOPE 

6164 Oe4042 6127327 o00021 001324 MOV #21 STESTN ::SET TEST NUMBER IN APT MAIL BOX 

$165 Oe40S0 004737 030032 JSR ¢, SETT :SET UP FOR LOOP ON ERROR 

6166 024054 004737 030100 - JSR Bere CEKITR jSEE IF ITER. NO. = O FOR THIS TEST 

6167 Oe4060 000137 24752 IMP sEOP :JUMP TO END-OF -PASS ROUTINE 

6168 RETURN HERE FROM CHKITR IF TEST SHOULD BE R 

£169 O24064 904737 027300 JSR PC, INITSS INITIALIZE bRIVER PARAMS AND Sua SYS 

6170 024070 904737 025330 : JSR PC’ PREPKB :PREPARE: FOR POSSIBLE KBD INPUT 

£171 024974 105037 003124 CLRB  - XOVLAD ‘INIT XXDP OVERLAID INDICATOR 

6172 O24100 032777 O00040 155032 BIT #BITS, ISWR ; SEE IF WRITES INHIBITED 

6173 O24106 O01002 - BNE YES, DON’T CHANGE RAND DATA PAT 

6174 24110 004737 033760 ISR PC,LODP14 jSENERATE PSE EUDO-RAND PAT 14 

6175 024114 013737 005740 coss34 o2¢: MOV PT; PATRN ;GET Y OF 

6176 Oe4le2 005737 005740 TST PT’ : SEE Tee guICK VERIFY bara TEST DESIRED 

6177 Oe4l26 001020 BNE 7$ :BR IF NOT QUICK VERIFY 

6178 ;SET PARAMETERS FOR QUICK VERIFY DEFAULT DATA TEST ‘ 

6173 024130 O12765 063526 OO0010 MOV #RWBUF.P.BALO(RS) ;SET R/W BUFFER ADDRESS 

6180 024136 O0S065 o00002 CLR P.CYLNURS) sTATT cy CYL TO 0 

6181 O2414e 105065 oo0005 4S: CLRBOPP., FRCKURE) INIT TRACK TO O 

6182 O4146 012765 175000 ono012 S$: MOV #-1536.,P.WC(RS)';SET WORD COUNT FOR & SECTORS 

6183 024154 105065 oo0004 CLRB s«&P. SEC TRS) : INIT SECTOR TO 

6184 024160 004737 035330 6S: JSR PC, CHKLIM ;CHK WRO COUNT AND PACK ADR TO AVOID OVERFLOW 

6185 024164 O24726 30% “RETURN ADDR FOR TRANSFER NOT ALLOWED 

6186 Oe4i6— O00457 BR 18$ : PROCEED 

6187 «SET PARAMETERS FOR NON-DEFAULT BATA TEST 

6188 O284170 013765 oUs74¥2 ooooIO 7§: MOY A,P.BALO(RS)  ;SET BA BITS O-15 

£129 624176 013700 005744 MOV Ma Ate. RO :GET MA BITS 16-21 

£190 Oe4202 042700 177774 BIC #177774, RO :MASK FOR L0 2 BITS 

6191 O24206 1S0065 O00007 BISB RO.P.BAHI(RS) :SET BA BITS 16,17 

6192 Oe42i2 013737 OOS742 ocoSS72 MOV MA; PMA :SET BUFFER ADDRESS 

6193 Oe4220 013737 905744 O05574 MOV MA+2, PMAt2 

6194 Oe4226 105237 003124 INCB XOVLAD :SET XXDP OVERLAID INDICATOR 
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MO-LI-DDREM-C - RKELL RKOS SUBSYS. VERIF. : PART 1 (1006) OS-OCT-76 10:13 PAGE 11 SES 21 
| ER! She 06-02%-% 10:03 t2i READ WRITE TE bata TES? —— =e Oe 
| $185 O24232 OOST37 Osi 1s? SKTLI :SEE IF MEMORY MENAGEMENT PRESENT 
|} 619 Sexe 10 ag -BR IF NO MEM. 
P35 c24240 004737 026362 PREPARE Pace MOET SREP aR pees: HOR Re Sean FOR RELOCATION 
| ste ynriale TEST. bheate e® EFS 
6206 ceveve 013765 005712 000. P.CYLN(RS) stNIT CYL TOF 
Peni pevsee ELETSL Soest ii 81:81 ante Pre att eae CECrED 
=~ e ‘ é suas 
F538 ste 953053 i Be iNs ae F TH ay PATTERN se is 
PERS *Susee sees BEG 25g :BR IF ALL RITERNG. Ont ene cKED ON THIS CYLINDER 
«BES SEIESe Soe 14 - AS, ncxins) itr toe 
wi oe é 3 igh e ; 
| es 300 138e S388 600004 te ove Fo'p eee (RE iin TIALIZE ps TO FS 
| BCS devo sso 000ci2 178: Moy ue p-HE(RS) :SET WORD COUNT FOR WC WORDS 
ss iv) - 
| Bell Oe4320 O04 3 SR PC, CHKLIM sCHECK WRD CNT AND PACK ADR TO AVOID OVERFLOW 
ate 024324 de4es2 e58 RETURN ADDRESS FOR TRANSFER NOT ALLOWED 
£21 jPERFORM TE TESTS AT CURRENT aDoRESS 
62:4 pee 12 924326 001110 $., >SET NEW LOOP ON ERROR ADRS 
| 6615 rele 530032 7e8 pe’ SETTUP ‘SET UP FOR LOOP ON ERROR 
bei8 64340 004737 O37l7e 35R PC’ SVPRMS STORE P FOR THIS TER 
| Be RS ee Be Bo LEP EI in Ate oc 
| 213 364 p3e777 # 1S4SSE BIT SEITES :SEE IF 8 WRITES INHIBITED 
| 62 362 601005 NE 208 :BR IF INHIB 
| $221 024364 112765 000123 o00001 nove auroe A B. CHD CRS) SET RITE ¢ COMMAND 
PESe SE SSSE 1SwS34 208: art Botta. SW uel Fe arte CHECKS INHIBITED 
| g224 Oe4404 001014 SNE 228 -BR IF INH 
| 6225 Ce4406 112765 000131 900001 MOVE  SWRTCHK,P.CMND(RS) ;SET WAIT COMMAND 
eeee 4 047. O37 30s J PC TRNSFR :D0 rob CHECK OF MEEK DATA WRITTEN 
beer 13s 131 STB uCEFLG iSEE IF A OR OCCURRED 
| €358 Qew4eg 932777 oO00002 154504 BIT 88171, aSWR SEE IF ‘READ AND COMPARE SHOULD BE DONE 
| §230 OeH434 001417 BEG :BR IF NOT 
| $831 Da4436 000010 154474 225: BIT #8173, aSWR :SEE IF READ AND COMPARE INHIBITED 
be2e  Oe4444 00101 BNE 24g °BR IF INHIBITED 
| $233 Oev44e 112765 000121 00000! MOVE sRODATA,P. CHND( CRS) AST READ COMMAND 
| be24 Oe4H454 5373 JSR >READ THE DATA 
| €235 Oe4460 is44se2 BIT aBt2, SCAR :SEE IF SOFTWARE COMPARES INHIBITED 
E28 peice 951008 evs :BR IF INHIBIT ED 
| £237 o24422 IS CMPBUF :PERFORM SOFTWARE COMPARE OF DATA 
| b238 Oe4474 105737 003126 e4s:  TSTB putes :SEE IF DUAL-ACCESS DATA TEST 
| 6239 140s BEQ 7§ *BR IF NOT DUAL-ACCESS 
£240 112765 00140 cD0001 MOVB BRELEAS, P P.CMND(RS) :SET DRIVE RELEASE COMMAND 
| 624i 084516 004737 03 JSR C,ORVCAL RELEASE THE DRIVE 
| §242 0845149 104411 278: SCOPER ICHECK FOR INTERNAL LOOP ON ERR 
 be43 Devdie 005737 05740 TST PT :SEE IF QUICK VERIFY DATA TEST SEcrren 
_ eH Ge4d22 901031 BNE 4s :BR IF NOT QUICK VERIFY 
P5ae o0c006 mo cae ager! A pe aLORESS FoR. quick VERIFY DEER, DaTs - 
6247 ae Se zes 000004 dela CMPB sé. SECT(RS), #24. :SEE IF SECTOR LIMIT REACHED YET 
be4e 024540 BGE 343 :BR IF LIMIT EXCEEDED 
| §e#S Cevs4e 090137 oe4ie0 IMP 6S :G0 BACK AND TEST 
b25C CS4E4E 105265 O00005 24§: INCB  P.TRCK(RS) : INCREMENT TRACK 
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ReaD WRITE DATA TEST 


CMPS 83,°. TROK(RS) 


;SEE IF TRACK LIMIT EXCEEDED 
BEQ zi ‘Be rf vee 


she 
33 No OBS CYLIN(RS) 

SSPE ners) ieee or F Cr Clemrt EXCEEDED 

B23 308 
1 TNCREMERT PACK ae Sh! me cra? DATA TEST oe 

Se EERO PT ee 

he 8 80oe 

MOVE Backers) ,R3 fae 

ADD ie RCREMENT ack 

MOV  -AS'P-TRCK(RS) PUT IT BACK 

cme ORL T EE FLT EXCEEDED 

BLE 16$ Rf NO 

7 us TQ CHECK TSOR NEXT PATTERN 
oss: tne LC ie | 

Bot 1BR IF FOOLC 

BO fe. P-CYLN(RS) INCREMENT THE Cyt INOER 

ie tee IF LC EXCEEDED 

BT a 'BR IF LC EXCE 

Imp OY 


cyLN (RS)  s;DECREMENT THE CYLINDER 
ers (RS),LC SEE IF LC EXCEEDED 
:BR IF LC EXCEEDED 


. gel 
308:  TSTB  XOVLAD ; SEE IF xx0P MIGHT BE OVERLAID NOW 
BEG 31$ :BR I 
ISR PC GETXDP i RESTORE XXOP LOADER, IF SAVED 
318: TSTS UBMPRS :SEE TF UNISUS MAP PRESENT 
SEQ 325 :BR IF NOT 3 
a CLR assk2 ‘DISABLE 22-BIT MODE AND UNISUS MAP 


-SBTTL END OF PASS ROUTINE 


eee eer eee omen tameee ee SLEAAAE 


: EINCREMENT PASS NUMBER ($PASS) 
aTY “EG S sXXXxx" {WHERE XXXXX IS @ DECIMAL NUMBER) 
:#IF THERE a HON tTOR GO TO IT 
:#IF THERE ISN’T JUMP TO NEWPAS 
SEOP: 
SCOPE 
INC SDEVCT s INCRENENT DEVICE COUNT FOR AP 
J NEWORY F MORE DRIVES TO fest. ON THIS PASS 
DUNPAS: ; THIS IS TRULY THE END of” AP 
Bic.  sBITE, ASTKS ‘DISABLE TTY Keo INTERRUPT 
CLR STSTNA :;2ERO THE TEST NU 
C STIMES ZERO THE NUMBER OF ITERATIONS 
inc 4s SASS $1 INCREMENT HE PASS NUMBER 
BIC #100000,$PASS :;:DON’T ALLOW A NEG. NUMBER 
EC (PC)+ :: LOOP? 
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DIREMC.F11 tha ENS OF pags ROUTINE 
| $307 o25016 90000: SEOPCT: .W 
He Bee & Pic Hl 
| bar Ee ae CPLI¢,ACPC)® Fi TORE COUNTER 
3] neen Olé T 
i 104461 025075 sEr° SENOMG ;; TYPE ENO Pa 
£313 013 001326 MOV $Pass, -(SP) eo, eee FOR feo 
£314 oO U1 T 3380 VEE BECINAL Beets WITH SIG! 
Sa on ae ee ce 
£31? eae 14 SDORGN Hi ger i NO MON #3. 
6318 O25054 990005 RESET *:CLEAR THE WORLD 
6318 O2505e 904710 SENDAD: JSR PC, (RO) 2:60 TO MONITOR 
£320 025060 NOP ::SAVE ROOM 
$321 3e50be NOP ::FOR 
$3c2 4 NOP s;ACTII1 
6323 O2S066 SDOAGN: 
, 8324 137 IMP a(PC)+¢ ; ; RETURN 
Pact 18756 SETNAO: ~WORD = NEWPAS 
2 3 377 000 §$ENULL: .BYTE -I,-1,0 *sNULL CHARACTER STRING 
| §327 085075 015 o4e412 O4211E SENOMG: -ASCIZ «16><le>/ENnD Pass’ a” 
| $328 025102 : OS1so1 Oe012e3 
| $328 0285115 90004 
| 6330 
| 633} 
| §332 
| §333 :THIS IS THE ABNORMAL RETURN FROM THE DRIV 
6224 : WHICH IS USED exist NED none 1s Eee ere (AND VALID). 
| 8335 . (NED = NON-EXI TENT IVE) 
| §336 O25112 932765 o10000 o00020 NEDHDL: BIT S2(RS) ;SEE IF NED ON DRIVE SELECT 
| 8337 625120 OdOlo0de BNE ic :BR IF NED SET 
| 6338 025122 000137 o41354 . IMP ERRHDL +60 HANDLE OTHER ERROR 
| €339 O25126 910046 18: MOV RO, -(SP) :SAVE ROR 
£3490 925130 O10146 MOV R1)-(5P) 
£341 025132 612700 oo0001 MOV #1,R0 :SET BIT POINTER 
6242 025136 05001 CLR Rl :CLEAR C 
£243 025140 120137 oossco 23: CMPa 4=s«éRR DRIVE :SEE IF Rl = ree URRENT DRIVE NUMBER 
6244 025144 0014 BEG 3$ ;BR IF 
6245 025146 1 INC R} INCREMENT COUNTER 
«BSH Oe5is0 300 ASL RO : SHIFT iT POINTER 
| 6347 025152 900772 pe 23 : TRY 
6246 025154 940037 005520 38: BIC RO, NEWON CLEAR ONLINE BIT FOR THIS DRIVE 
| §343 O25160 012601 MOV (SP)+,R1 RESTORE RO,R 
£250 O2f162 912600 MOV (5P)+'R0 
6251 O25164 042570 IMP RETNML :TAKE NORMAL RETURN 
Ese 
£254 « SFSFEELESELASSSRALSEAASSRAAASSSRALLARALASRARERASSS ELE RESSESAPSEE 
 $35¢ ‘ETT, KBDHDL - TTY KEYBOARD INTERRUPT HANDLE 
Pass 5 RRERAELAERRERRELE LEAL EA RALERELELLEAL LAA REAL LALA LARERELE LE LAL ASE 
6258 025170 O10146 KBDHDL: MOV R1,-(SP) ; SAVE Rl ON STACK 
£255 365178 17701 183750 MOV astKB. Rl :READ A CHAR FROM KBD BUFFER 
£360 3251 ert 177600 BIC #177600,R1 :MASK OUT UNUSED BITS 
| €361 Ceseoe 120127 Oocl72 CMPE = séaR 8172 :SEE IF ugQueR CASE TYPED 
632 Oes206 03005 BGT o¢ :BR IF 


TT LSS STS Ss SSS ssl sss SSS SSS SSS SSS SSS SSS, 
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cbowon ~"thy de SEARS inreRRGeT KeNoles 
MP RI 8141 
rg $ BR 
a6, ae a icon UpPeR cast TER 
oe 2903.81 my Pa uae? “IPED. 
TYPE LC 
1S3676 18: SIC TES. iGo i INTERRUPT ENABLE BIT 
Boy (SP)+°R1 RE TORE R 
2s: CMPB 2s: 8032, R1 :sEE IF (2) TYPED 
eNe 3, e IF gt (#2) 
YPE TRLZ 
BR : TORN 
38: CMPBOs«wO22, RJ :SEE IF (¢R) TYPED 
BNE - sBR IF NOT (tR) 
TYPE CNTRLR sECHO 0, tR) 
4$: oar 7,R1 :SEE IF (36) TYPED 
BNE Fs :BR IF NOT (1G) 
TYPE CNTRLG ZECHO (¢G) 
gs 1§ : RETURN 
S$: TYPE  ,INTCHR :ECHO INPUT 
TYPE SCRLF 200 <CR> AND <LF> 
1$ RETURN. 
= SESEELSSERERELALASERESFSSLLLEFASSLARESERLSSERALSLAAESFSLESLELEARG 
‘STIL PREPKE — PREPARE FOR KEYSORR D INPUT 
TMI SUBROUTINE CLERRS THE KEYBOARD BUFFER AND T 
ONE BIT LEARS THE TTY INTERRUPT INPUT WORD 
isINTCHR tn PREPARATION FOR NEW TTY INPUT. IT ALSO 
:#ENABLES KBD INTERRUPT. 
. Mare 
i+ PC, PREPKB 
Meriririreriiitititititietrttitititttitititetititetettretttetere 
PREPKE: CLR ISTKB ;CLEAR KBD BUFFER AND DONE SIT 
cue INTCHR CLEAR ie INe T WOR 
153576 BTS sBIT6, ISTKS ENABLE K NTERRUP 
RTS PC RET 
o7 SELFSASFRELALAA FL AESELAA TEASERS RAAAARSAATATARASLAAFSERESLARLASAFLLE 
'SBTTL ECOBAD - ECHO BAD TY U 
:#THIS SUBROUTINE ECHOS A CHARACTER WHICH HAD BEEN 
:#TYPED IN AND WAS DETER MINED TO BE INVALID FOR SOME 
ogee: FOLLOWED BY A QUESTION MARK (7), THEN, A <CR> 
< > NE. 
is CALL = PC, ECOBAD 
PEASE EREE ASHES REREAAESS SESE EREREAREREREERERERELEREEEREEEE REESE 
ECOBAD: TYPE INT sECHO BAD CHARACTER ‘ 
TYPE eee :TYPE <?> AND «CR, <LFD 
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EcogAD - Ecc BAD TTY INPU 
RTS PC ; RETURN 


jpebanersnsseensssenssseseesesssasseesesesnerassecersecansnses 


:Asi2e 
ia Ee GE 6 ANTE NEW HS AUER. 
pian : *; AG lamps tP 23-B1T ACORESSES ARE USED TI SB) 


sano SETS THE FLAG UBHPRS = i TF 26-11 AOORESSES ARE USED (1177 
btonEM: SAVREG :SAVE RO-RS 
MOV :SET MEM MGT KEY FOR S$SIZE 


a 
78 eC 4S tas MT PRESENT 
BMI F MEM MGT PRESENT 
MOV $L5TAD MAHILM :SET MEM LIMIT LO BITS 
CLR MAHILM+2 :CLEAR MEM CIMIT HI BITS 
BR 16$ :G0 TYPE LAST ADDRESS 
-SHIFT SAF LEFT 6, AND PUT IN RI-RO 
83: MOV $(STBK.RO :L0 BITS 
CLR Ri :HI BITS 
MOV #6, R2 :SET LOOP COUNT = & 
128: cle :ROTATE LOOP 
ROL RO 
RIL Ri 
BRE 3S 
;ADD VIRTUAL ADDRESS TO SHIFTED SAF TO GET PHYSICAL ADDRESS 
$LSTAD, RO ;ADD LO BITS 
i I “HI BITS 
RO, MAHILM :SET LO BITS OF MEM LIMIT 
RI; MAHILM+2 :SET HI SITS oF NEN : MIT 
ts #3'R1 :CLEAR ADRS BITS | 
BEG 166 :BR_IF NOT 22-817 1 eabRESsES 
MOVE MPRS UNIBUS MAP PRESENT” FLAG 
- TYPE “LgST PHYS thane QDR = XXXXXKKx" 
iss: TYPE LSTMEM : TYPE "LAST PHYS MEM ADR = 
MOV RMAHILM,-(SP)  ;PUT POINTER ON STACK 
ISR PC, J#$D820 : CONVERT BINARY To OCTAL ASCII 
JSR pc’ ¢ ,gBSSUPRS ; TYPE “XXXXXX 
TYPE :TYPE <CR>, nia 
TYPE ae 
RESREG anaes RO-RS 
RTS PC RETURN 


TPE TILT A IXcIGIT OCTa, NO, ON TTY CD 
iH GET PRM - INPUT A SIX-DIGIT OCTAL NO. KO 
I4ENTER SUBROUTINE WITH OLD PARAMETER GAC UE ON STACK. SUBROUTINE 
pa TyeeS OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 
eee ae ee Ree ta ee aT a WG 
ittpem, HOV 2(SP),-(SP) GET OLD V UE 


SEG Ciz2 





MDa1L-02RENAC = 





00& 
1044 007511 
030174 


O22737 000176 

0010 

013746 000176 
0075 

004 OeSSle 

Cle637 000176 

000207 


104407 
0US001 


550 ws ee OB BUSS. VERIF, 
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écdgad - ECHO BAD TTY INPUT 


ee 5 re pres’? LEADING, ZEROS 
+831 NEWMSG i FUEP i ae 
ISR BC, ROCHRS READ N WW VALUE FROM KBD 
7g (fC) RETURN ADDRESS 
7§ :(42) RETURN ADDRESS 
75 >(#U) OR ERROR RETURN ADDRESS 
TST RO :SEE IF ANY CHARS TYPED 
SNE 4 :BR IF YES 
RTS PC "RETURN - OLD VALUE UNCHANGED 
4§ CMP RO, #6 :SEE IF >» & CHARS TYPED 
L g BR IF oli? BAD 
3 YPE | BUFFO ECHO INPUT 
TYPE  ($QUES 
7§; U 10, (SP) sFIX ERROR RETURN PC 
RTS p :ERROR RETURN 
8s: MOV #BUFFO, -(SP) :PUT POINTER TO CHARS ON STACK 
JSR PC, OCTBIN : CONVERT OrGITS TO BINARY 
b5 sERROR RETURN ADDRESS 
MOV (SP)+,RO T NEW BINARY VALUE 
ist SIO oct SEE IF HI BITS ARE 0 
MOV 85, 2¢SP) BUT NEW VALUE ON STACK 
RTS PC : RETURN 


barr eteuRG OPEN SOFTUARE SUITCH REGISTER FOR MODIFICATION 
‘AOTTL  GTSWRG REGISTER FOR MODIFICATION 


:#THIS ee atene OF THE SOFTWARE SWITCH 

jaREGI a so i ce 7 Ty v ANeUT THE SUBROUTINE TYPES 
XXXXXX FOR A NEW OCTAL VALUE 

SOF + TO SIX breres TO “gee TYPE 

wy A RR fal, se 


Atcurs: CMP aSWREG, SWR ;SEE IF SOFTWARE SWR SELECTED 
BNE é :BR IF NOT 
MOV WREG, -(SP) : PUT OLD VALUE ON STACK 
TYPE SWRMSG iY YPE "SWR = 
is PC. GETPRM TYPE OLD Ger feu SWRES VALUE 
MOV (SP)+, SWRES :STORE NEW V 
6S: RTS pe :RETUR 


5 RRRERERER EERE RAERERREAAELERE REEL EL EREAESRESEERRREERE REE RERERERE 
sa Te - INITIALIZE MEMORY Be a REGISTERS 


L HE 
1 422-B1T MODE AND THE UNIBUS MAP ARE ENABLED, IF PRESENT. 
:#BUT MEM MGT IS NOT TURNED ON IN Aree SUBROUTINE. HOWEVER, 
:#MEM MGT TRAPS ARE ENABLED. 
in Maen ence ste BA ee 


tAITMM SAVE RO-RS 
:INIT FOR PAR LOADING 
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ll 05-00 GT guRG - Been SOFTWARE SWITCH REGISTER FOR MODIFICATIO 


‘e En CE CES aE ee Tete 


3 025710 O12762 177740 4S: MOV 877406, -40(RE) :POR = 4K,UP,READ/WR TE. 
bSa4 Geerié O10lee MOV sR (Re }+ 8 PAR 
s535 025720 701 ood200 ado #200,R1 RTE F OR NEXT PAR 
6536 025724 005303 DEC R3 :DECREMENT LOOP COUNTER 
6537 026726 001370 BNE 4 :LOOP UNTIL ALL & ARE LOADED 
6538 025730 O12742 177600 MOV #177600,-(R2)  :SET UP KIPAR7 FOR 1/0 PAGE 
£539 325734 108737 003134 TST8  UBMPRS iSee IF 22-BIT ADDRESSES 
6540 O25740 601402 BEQ 10$ F NOT 
£541 2 012737 OO00060 172516 MOV #60 g¥SR2 + ENABLE 2 a aliQve. AND UNIBUS MAP 
| §542 625750 015737 001000 177572 10S: MOV #8173, 385R0 pas APS 
6543 025756 104410 RESREG Loe 
6544 625760 000207 RTS PC 
sus 
a 
éS48 Sil it tama a 
6549 t SSERVICE ROUTINE FOR MEM MGT T 
6s = SSSSSSSSSSSSSSSSSES SELES LASAAAERELELARSLARARELARERSFERAELALLEREE 
6551 Oes762 004737 O41074 kt+ERHO: JSR PC, REPSUP ;GATHER STATUS FOR PRINTOUT 
| §$52 O25766 013737 177572 001174 MOV . a@a$R0,$REGS GET SRO 
6553 025774 013737 177574 001178 MOV ae5R1, SREGE GET SRI 
| Fee aaata pt eee5 or Bag BpasS 4 ROY +. oae SREREVE get ie -OUT VECTOR 
6556 026016 Bisoae aise siete MOV ae, mt Ect 
Ss 026 013737 172516 00120e MOV :GET SR3 
| PERE SSeRSE poo06 8s on os (sp) SCLEAN UP STACK 
$ t + + 
| 6560 026036 112737 900003 o&32sS00 MOVE #3,0F30+18. :FIX PRINTOUT FOR NO SR3 
£561 O26044 105037 O62141 CLRB 3s OH? 04411. 
e662 oO260S0 104121 108: ERROR 121 sKT11 FAILURE 
ES: 026052 600137 043364 IMP HLTPRG ‘ABORT !!! 
| Be 
£567 + LHERSSLLE SELES EKAL EERE L ESSER L ERLE RAKE LAA ERK SARA S SHREK LEASE LSE 
| gs : KENBCSR - ENABLE MEMORY CSR'S FOR PARITY ERRORS 
&S& ee ee de ae ie Bo eae 
Feo 35 seat oo0004 BhecsR: NOY RiERRNEG (SP), SAVE OL OLD VECTORS 
| §572 O86064 013746 000006 MOV J#ERRVECS2, - 
| §573 026070 012737 Oe61le co0004 MOV 82S SNERRYEC ;SET TIME-OUT VECTOR 
| 6574 012701 172100 MOV #MEMCSR, R1 : ADRS OF MEMORY CSR’S 
| 6575 O26i02 O0S0i1 4S: CLR tRI) RO THIS CSR 
| e578 Debio oleril 000001 HOV nei t0, (R1) ‘SET ENABLE IN THIS CSR 
| §&78 Qsell2 Oeprere 8s: CMP (SP)+, (SP)+ CLEAN UP THE STACK 
| 85739 O26114 062761 ooooDe 108: ADD #2,R1° : INCREMENT TO NEXT CSR ADRS 
F280 bebie0 pete? 172140 CHP Ri, #MEMCSR+40 iSEE IF DONE CHECKING YET 
| §882 O26126 012637 oocooE MOV (op), DHERRVEC+2 ;RESTORE OLD VECTORS 
Fees Se138 5 5e5; — HOV (SP) +, QHERRVEC RESTORE R1 
| PEs 026140 000207 RTS : RETURN 
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PART 1 ) 
REGISTER FOR MODIFICATION 


Yll 
GTSuRG . PEN SOF THAR E Sul 


s SESHASSEAASRAARALAARELA RAFAL SSE SRALAAS RAZA LS LA TSALAF LE FSLEFFLSESE 
: SSERVICE ROUTINE FOR MEM PARITY ERRORS 
ee ae cee cans eee ee 


APERHD: MOV ;SAVE Ri 
V SAVE OLD VECTORS 


MO SL ERRIES, (SP). 
MOV QHERRVEC EE, ~( 
JSR C, REPSUP GATHER STATUS FOR PRINTOUT 
MOV &($P), SREGS :GET PC OF ERR 
MOV #10$,Q8ERRVEC SET T.O. VECTOR 
MOY #PR7’ JHERRVEC+E 
sHANDLE 11/70 MEMORY’ age ERROR 
MOV gi OER SRE SE sLOW ERROR ADRS REG 
MOV SHIERAD: ‘HI ERROR ADRS REG 
MOV aeMENSYS, sRECIO :MEMORY SYSTEM REG 
OV aOH707 DF 31416. :FIX ERROR MSG FOR 11/70 
ERROR 1340 ;11/70 MEM PARITY ERROR 
rs] gee? SEE IF an MEMORY IS IN PROGRAM AREA 
CHP SREGG, sRUBUF +6000; - SEE TF 80 MEM IS IN PROG. AREA 
4S; TSTB  MEMABT :SEE IF pgoRT DESIRED 
BNE ;BR IF 
IMP HL TPRG aH 
$$: MOV CSP ys. QeERRVECH2" ;RESTORE T.0. VECTOR 
MOV (SP +, SHERR VEC 
MOV ;RESTORE R1 
13h pe PeNacR :G0_ CLEAR AND ENABLE CSR’S 
-HANDLE ALL OTHER MEMORY PARITY ERRORS  (NON=11/70) 
los: CMP (SP)+, (SP)+ ;CLEAN UP THE STACK 
MOV 4148 :DEERRVEC :SET T.0. 
MOV amemcsR :GET FIRST CSR ADDRESS 
128: MOV (RI), gaec2 :CHECK FOR_A MEMORY CSR 
BPL :BR Ik NC ERROR SET HERE 
MOV R1, SREGE ;GET CSR ADDRESS 
ERROR le 22 !MEMORY PARITY ERROR (NON-11/70) 
BR :G0 SEE IF SHOULD ABORT 
14$: CMP (eP)+, (SP)+ coca uP STACK 
i6$: ADD #2, ;INCR RI TO POINT TO NEXT CSR 
CMP RI’ SMEMCSR+4O0  :SEE IF DONE CHECKING 
BLO 12$ :BR IF NOT 
BR 6$ : RETURN 


[SREP PREPARE TEN PT FOR RELOCATION See 


 LPREPOR - PREPARE TION 
MM END THEN SETS UP CONSTANT 


;#THIS SUBROUT INE CAELS INT 
sHFOR pkipaRe IN SAVPAR, AND LOADS THE UNIBUS MAP REGISTERS, 


ee ee ne Bee ee ee 
bREPaR: AVR ;SAVE RO-RS 
PC, INITMM : INIT MEM MGT REGISTERS 
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10:03 
005572 


BageeS 


003176 
003134 


boas? 
Py 
020000 


180900 
000003 


006110 
160000 
006106 
poet 8 


0002 
006000 


090010 
000007 


005536 
157776 
005536 


005536 
005536 
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are aohee RO Oe ECR BITS ITS 13-15 
BAS Baase’ Ri Ne KrFe of ne 
MOV RO,R3 :SAVE THESE BITS 
MOV R1,R4 
ROL RO :GET MA BITS 13-21 INTO Ri BITS 7-15 
ROL Ri 
ROL RO 
ROL Ri 
Rl 
ROL RO 
RORB sR 
MOV Ri, SAVPAR ;CONSTANT FOR LOADING PARS LATER 
TSTB  ——«UBMIPRS EE IF UNIBUS MAP ENABLE 
BEQ NOT (NO UNIBUS MAPPING) 
PREPARE FOR 22-817 ADDRESSING - “Qe UNiBuS MAP REGISTERS 
MOV LOO,RO STR OF MAP REGISTERS 
MOV $3 RL ET REN PST COUNTER 
4$: MOV R3, (RO) + :LOAD A MAP REGISTER 
MOV R4’ (RO)+ 
ADD #20000, R3 ;ADD 4K WORDS 
ADC RY 


SOB LOOP UNTIL 31(DEC) ARE LOADED 
BIC elég000 P. parocréy. :CLEAR BA BITS 13-17 
BICB =-_- #3, P. BAHI (RS) 
QS: RESREG RESTORE PO-RS 
RTS ri : RETURN 


5p RERRERRREEE REAR ERA E ER EER EE EER EEE EEE EEE EERE AERA EERE EER EER EE AEES 
a FIND STARTING ADR OF XXDP LOADER , AND STORE IT 
HgxGe: Tet maniume TEST HE BITS Ge UPPER HENRY Li 


MAHILM+2 i TEST HI BITS OF UPPER MEMORY LIMIT 
BEG 6$ *BR IF HI BITS ARE O 
4$: HOV #160000,XXDPAD :START OF 28K IS END OF XXxOP 
tS: errs NBHILN, #157776 ;SEE IF NEN LIMIT > OR = 157776 
MOV MAHILM,XXDPAD :HI MEM LIMIT IS END OF XXDP 
ADD #2, XXDPAD :ADD 2 BYTES 
8s: sus #6000,XXDPAD § ;COMPUTE START OF XXDP 
RTS PC : RETURN 


. pHHHHMNHHHMHHH ELSES ESEPESEEEERES SEES EEEEEEEE SERRE 
t kCHK HKXDP - CHECK FOR IMMINENT OV BRLAY OF XXDP L LOADER 

:*THIS SUBROUTINE DETERMINES IF THE CURRENT MA AND W C COMBINATION 
:#WOULD CAUSE OVERLAY OF THE XXDP ORDER ON A WRITE TRANSFER. 

;#IF SO, AN ATTEMPT IS MADE TO MOVE THE LOADER INTO NOSED MEMORY . 
-*#IF THIS IS NOT POSSIBLE, A RETURN IS MADE TO THE E 


ines THE CALL. THE SAVE ADDRESS IS STORED IN XXDPSAV ae pene. 


F IT IS NOT NECESSARY TO MOVE THE LOADER, A NORMAL RETURN I 
:* CALL JSR PC, CHKXDP 

























003126 


Bog046 


005740 
o0s744 
ooooae 


005746 


005742 


= igs 


003125 
005742 
072000 
oo5S4e 
027032 
o00o0e 


005776 
006110 


190000 
005540 


+¢ 


a cn aa Ee 

MiKXDP: SAVREG “RS 

:SEE IF LOADER MUST BE PROTECTED’ 
2 DULACS 


10$: 
12s: 


14S: 


PART 1 
TF eréure - PEN SOFTWARE SWITCH REGISTER FOR mobic ATION 


8$: INCB X0P SVD 
;ATTEMPT TO FIND A SAVE AREA FOR’ LOADER 
MP MA, #100000 


Ca 
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«RETURN ADR FOR NO SAVE> 


;SEE IF S  pcuaeens DATA TEST 


:BR IF Y 

STSTLST,RO GET 0 ADRS OF TEST LIST 
RUT INK(RO) SEE IF R/W DATA TEST TO BE RUN 

aes sEXIT fen NOT TO BE fu 
PT :SEE IF DEFAULT DATA TEST 
4$ :BR IF DEF AU T 7 DATA TEST 
MA+2 ‘SEE IF H 
2 sp i rf o. RMAL RETURN PC 

#2, (SP) 

it tee Ri 

PC URN 
we, RO et WORD COUNT LO BITS 
RO DEE EMENT 
Ri : 


HI Aire = 0 
;DOUBLE IT FOR BYTES 


R 
Ns, RO ;COMPUTE LAST ADR OF XFER IN R1-RO 
MA+2.R1 
HOPRD ;INIT LOADER SAVE INDICATOR 
PC NOXDP ; COMPUT — START ADR OF XXDP 
XD 

3C HI BITS OF LAST XFER ADDRESS 
RS, XXDPAD rR LE Ne" atts OF LAST XFER ADR 

:BR IF < XXDP ADR - DON’T MOVE XXDP 


SET SAVE INDICATOR 


;SEE IF MA > OR = 16K 
NOT 


12 0 

#72000, XDPSAY SAVE ADR = 72000 

XDPSAV+ 

FC, SRVXDP SAVE THE LOADER 

te, .RO ADD 2 ReTee ‘ro LAST ADR OF XFER 
RO, Re :GET A COPY 

LS R2 ;COMPUTE END OF SAVE AREA 
R32, MAHILM+2 :SEE IF THIS EXCEEDS MEMORY LIMIT 
16$ :BR IF YES - CAN’T SAVE LOADER 
14s :8R IF < MEM LIMIT 

2, MAHILM i EE IF LO BITS EXCEED MEM LIMIT 
16$ YES - CAN’T SAVE LOADER 
Ae XDPSAV eR cave ADR IN HI NEHORY 
RI’ XDPSAV+2 


« 
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ek 

16$: MOV 
cLRB 
B 
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10$ 

103) (SP) 
ypPsvp 

c$ 
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OCT-76 10: beat aT ion 


05- 
GISTER FOR MODI 
3G 


;GO0 SAVE LOADER 
;FIX UP_NO-SAVE RETURN PC 
CLERK TUS SAVE INDICATOR 


eae. SAVE TIE KMDP LOMOER INE MEMORY 


tS TRts UR BROUTINE NOVES OF HE XD 


;*PHYSICAL ADDRESS STORED IN X 
j #STORED IN XDPSAV AND XDPSAV+ 


R IN ber, 
a LOADER, “HG RESIDES AT THE 


HYSICAL 


ADDRESS 
2. o toraL OF Tose BEC) WORDS ARE MOVED. 


i GETXDP - RESTORE THE XXDP LOADER TO ORIGINAL wot * 
Deep A aSPaavss, "BaGe TE LBcaTIOR KiGPAD ITS ORT STTBL 


eee acaee: eeeusabenanuanabansausnensoprmneanngnbeuannnnnenenneel 


iicenee AV 
LR 
BR XDP1 
GETXDP: SAVRE 
CLRB. - XOVLAD 
TSTB xDPSvo 
BEQ XDP 
MOV #1,R4 
XDP1:  TSTB aed 
BEQ XDP 
MOV #1536. ,R2 
MOV XXDPAD: R3 
MOV XDPSAV: RO 
MOV XDPSAVEE, Bh 
TST SKT11 
BMI XDP3 
TST RY 
BNE XDP4 
bs: MOV (R3)+, (RO)+ 
DEC R2 
BNE 6$ 
XDP2:  RESREG 
RTS C 
XDP4¥: ADD #6000, RO 
ADD #5000, R3 
8S: MOV (RO); -(R3) 
DEC R2 
BNE 
BR XDP2 
-COME HERE IF MEM MGT 
¥OP3: JSR PC, INITMM 
ROL RO’ 
ROL R1 
ROL RO 
ROL Ri 
SWABSCté«ér;«&‘L 
ROL RO 
RORB sR 


7 INDICATOR TO SAVE XXDP 


‘ere VE_RO-RS 

LEAR XXDP yn INDICATOR 
is iF AXE Me ¢ SAVED 

SET INDICATOR TO ll XXDP 

SEE IF LOADED BY XxDP 

;BR_IF NOT 

:GET SET TO nos re ey WORDS 
GET ORIG ADR OF START OF XXDP 

; GET SAVE ADR bo BITS 


TS / 
SEE IF IF ren Hg PRESENT f 


RIF P 
;SEE_IF RANT TO SAVE OR GET XXDP 
1 IF WANT TO GET XXDP 


AVE Pat WORD 
:SEE y fo5 (UEC) WORDS YET 
;BR IF NCT YET 
RESTORE ROARS 
RETURN 
:POINT TO END OF SAVE AREA 
;POINT TQ_ END OF XXDP LOADER AREA 


SEE IF 1536(DEC) WORDS YET 
;BR IF wer YET 


;INIT MEM MGT REGISTERS . 
;GET ADR BITS 13-21 INTO.R1 BITS 7-15 
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DZREMC.P 05-OCT-76 10:03 STSuRG - SEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 
6811 7174 O10137 172354 MOV Rl ge tine ;SET UP PARE 
S8i2 027200 013701 doss40 MOV XDPSAV,R1 -GET LO ADRS BITS 
6813 Oe7e04 O4%2701 160000 BIC thet Rl FIX UP R1 TO REFERENCE PARE 
paid bs? 10 peer Ol 140000 Is #14 0000; Ri 
1s 7el4 704 16S: ST no ;SEE IF WANT TO SAVE OR GET XxDP 
6816 O2e7216 001007 BNE 18$ :BR IF wm TO GET XXDP 
pai’ bs?ese pleats MOV (Ra) ¢, a $A 
18 7222 3? 177572 INC aeSRO’ ; TURN ON” MEMORY MANAGEMENT 
6813 27226 010521 MOV RS, (R1)+ 
6820 Bs 7630 uae 177572 pee a#SRO ; TURN OFF MEMORY MANAGEMENT 
6821 7234 O406 8 20$ 
& 027236 005237 177572 183: INC a#SRO 1 Tan ON Ry MANAGEMENT 
3 Be 6 6 Belts MOV cRL)s RS ‘GET AW 
~ 7244 177572 DEC a#eSRO TURN OFF MEMORY MANAGEMENT 
6825 027250 010523 MOV RS, (R3)+ 
027252 032701 Od20000 20s: BIT #81T13,R1 ;SEE rs OVERFLOW TO PAGE 7 
6827 Oe72S& 001405 BEQ 4% :BR I 
O27260 O4e701 20000 BIC #BIT13 :SET Pace =6 again 
6829 Oe7e64 062737 000200 172354 ADD $200 Sh TPARG : UPDATE PAR BY 4 ' 
6830 Oe7e72 005302 228: DEC Br : SEE IF 1536 WORDS YET 
6831 027274 001347 BNE 16S :BR IF NOT YET 
Peas 027276 000713 cs xDPe2 :BR TO RETURN 
cea 
6236 + EREKKEL EE SHEKEL LL ERE KEL LAE EE HERA LALA LA LESSEE EKEAEE LEASE RSE EEE 
6627 “SBTTL INITSS - INITIALIZE SUBSYSTEM 
£839 HeTHIs SUBROUTINE PUI. izes THE DRIVER AND ITS PARAMETERS 
£840 D DOES A SUBSYSTEM CLEAR 
6841 + ANSES Re, RS 
6842 i CALL 
6843 JSR PC, INITSS 
ad eT rreriritiititttitittitirtritttttitittititttitititettitititite) 
6846 027200 012737 041354 003026 ai MOV #ERRHDL,A.ABNL ;SET L'P ABNORMAL ERROR RETURN ADDRESS 
6847 027306 012737 O40106 003034 MOV #ERRFRE.A. NORM :SET ‘#? NORMAL RETURN ADDRESS 
6848 027314 013702 003026 MOV RKBAS, Re GET ADDRESS OF RK611 REGISTERS 
6849 027320 012705 002620 MOV #PARMO, RS GET ADDRESS OF a hee BLOCK 
6850 7. 105037 003133 CLRB sigh! ;CLEAR “NO-RETRY” FLAG 
6851 027320 004737 027372 JSR RPRM *CLEAR DRIVER INPUT PARAMETERS 
6852 027334 112765 000177 000001 MOVB HSUBCLR P, cnnD (RES ;SET suesySTeM CLEAR COMMAND 
6853 O27342 004737 037662 JSR PC DRVCAL ;D0’ SUBSYSTEM CLEAR 
6854 027346 113765 o05500 000000 MOVB DRIVE, ¢ ORVN(RS) :SET CURRENT DRIVE N 
6855 627254 113737 o05500 002704 MOVB DRIVE; PARMI -SET DRIVE NO. IN E HeenaTE P.8. 
6856 O27362 113765 903115 900007 MOVB FORMAT, P, CSIH(RS) SET CURRENT DRIVE FORMAT 
bee? 027370 000207 RTS PC ; SUBROUTINE EXIT 
aa 
6861 epg ae yy tart ort gr peepee caeconnabetin 
6862 BTTL CLRPRM - CLEAR DRIVER peur PARAMETERS 
6863 pu SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER 
6864 ; #PAR AMETER BLOCK (WHOSE ADDRESS 13 IN RS). 
bees 7% CA PC,CLR 


EEEE Pr orePOrTr Ter Te See TTT Tt TT eLeETPCTeT Ter Tere Tere Trt TTT TT et Tere 


7 a a 
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OZREMC.P11 OS-OCT-76 10 
6867 
6868 027372 010046 
6869 027374 Bibsue 
1k hia 010500 n00016 
bre Gere BBECeS 
6873 027406 
6874 02741 001378 
6875 De74le vleb05 
6876 O0e7414 012600 
6877 027416 900207 
£878 
6879 
£880 
ooos 
ete 
6884 
é8es 
£886 
6987 
6888 
6889 
6890 
6891 
6892 
6693 
6894 
£895 
6896 
6897 
6898 Oe74e0 004737 027300 
Peas Oe74e4 113765 005500 
6901 7432 001012 
6902 027434 122737 000013 
6903 de744e 1006 
6904 027444 105737 003106 
6905 0e7450 001003 
6906 0274 104401 010045 
6907 027456 04 
cao ceriee Ole7a? Qeeli2 
6910 O27474 012737 iidceygd 
pals G27502 004737 037662 
6913 027506 012737 041354 
6914 027514 022737 000377 
6315 Oe7See 001420 
6916 Ge7S5e4 113737 O05500 
6917 Oe7S3e 152737 000060 
6918 927540 104401 007540 
Pasa De7544 104401 007551 
6921 027550 O4e762 000100 
63ee Oe7556 017616 000000 


oooco0 


000041 


000001 
03036 
05530 


003036 
005530 


O07S46 
007546 


000000 


CLRPRM - CLEAR DRIVER INPUT PARAMETERS 


CLRPRM: MOV RO,-(SP) :SAVE RO 
MOV RS: -(SP) s SAVE cc 
NOV RS, RO _ eet Demereren Be BLOCK ADDRESS 
# ‘ 
1$: ri: tk igpe cs 5 toe BTA IN Op RESHETER BLOCK 
CMP SEE F DONE YET 
BNE ia a IF a DONE YET 
MOV (SP)+,RS ‘RES ORS 
MOV (SP)+'RO ; RESTORE RO 
RTS PC : RETURN 


Sn aN On I PO GAT 
ah - SC aN DR i FOR S Tus 
1% HIS S SUBROUTINE SCA HE SELEC TED RIVE TO INSURE 
RIVE I5 ON-L READY, NOT WRITE-LOCKED, 
HEAND NOT LOWOED ATTH aN ALEGNRENT Ca BRTRIDGE. IF ANY 


:*OF THESE CONDITIONS BRE NOT NE PROPRIATE 
j SNESSAGE IS TYPED, RKOG I cant A BTSa BLED, AND 

?#Q RETURN IS MADE’ TO THE ADDRESS LISTED IMMEDIATELY 

 & HE CALL TO SCNDRV. THE REGUES STED DRIVE NO. 

:#MUST BE PASSED TO THE S N WO 

:*ALSO, IF RUNNING FROM ADRS 200 AND RKO& IS LOAD MEDIUM, 

: xDRIVE O WILL BE REJECTED FOR USE. 

: Js PC, SCNDRV 

i <ERROR RET AN ADDRESS> 

1 HEHEHE HEHEHE EERIE EE 


SCNDRV: JSR ITSs sINITIALIZE DRIVER AND CLEAR SUBSYSTEM 
OVB GRIEF P_DRVN(RS)’:GET DRIVE NUMBER 
SEE IF DRIVE 0 IS xxbP LOAD MEDIUM 


<BR IF NOT DRIVE O 
CMPB «a1, #41 :SEE IF RKOG IS XXDP MEDIUM 
BNE :BR IF NOT 
TSTB MOFLAG . ;SEE IF 200 START 
TYPE DROXDP Ty PE “DRIVE 0 IS LOAD MEDIUM" 
BR “TAKE ERROR EXIT 
38: MOVB § &RDSTAT,P.CMND(RS) ;SET READ DRIVE STATUS. COMMAND 
MOV BNEDHOL A. ABNL ‘thurs NED AB NORNAL L SETURN AD DRESS 
MOV #3 WON NIT. ON-LINE 
JSR PC, DRVCAL L DRIVE araTUS 
»SEE IF THIS DRIVE’ EXISTS AND Is’ BA Ps NES 
MOV #ERRHDL,A.ABNL  ;RESTORE ABNL. RETURN ADDRESS 
CHP #37 NEUOK ise IF NED INC “CATION ON THIS DRIVE 
MOVB  DRIVE,BADDRV+& :GET DRIVE NO. INTO BUF 
BISB #0, BADDRV+6 ; CONVERT TO_ ASCII 
TYPE  ,BADDRV ;TYPE “DRIV 
TYPE 'NXDRIV :TYPE “NON-EXISTENT” 
“SERVICE ERRORS HERE 
23: BIC #IE RKCS] (Re) ;DISABLE RKO& INTERRUPT 


MOV asp), (SP) :SET UP Er20R RETURN ADDRESS 
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SCNORY - SCAN DRIVE F TUS 


RTS sERROR RETURN 
-SEE IF DRIVE IS "ReaD 
4g: eit #3. DRY, P.AOO(RS) TEST FOR DRIVE pEROY 


: ONE RIVE. 1S READY 
gorsve MOVE Barve BADORV+6 816 OR pete INTO BUF 
754g BISB -8'0, BADDRV+E :SONVERT Fork ASCII 
TYPE =, BAD “DRIVE x" 
TYPE NTREDY SpE "NOT READY” 
: 25 :TAKE ERROR EXIT 
ooowa ds” Bry TS ySRlat Baca cRs IF WRITE LOCK SET 
Ba be Ge limtie Lote NOt Ser 
o07S4s MOVB § DRIVE. BADDRV+& GET DRIVE NO. 
007546 g 80 BROORV +6 “CONVERT TO ASCII 
,BADDRY :TYPE “DRIVE x" 
TYPE * WRTLOK : TYP “WRITE-LOCKED” 
ef ERROR EXIT 
-SEE IF BRIVE NOT LOADED WITH actannent CARTRIDGE 
ooco00: 8: MOVE  SPACK. P.CMND(RS) ise? PACK ACKNOWLEDGE COMMAND 
ISR PC DRY CAL -SET VOLUME VALID 
900001 MOVE § @RODATA,P.CMND(RS) :SET READ COMMAND 
o00002 MOV SLSTCYL,P.CYLN(RS) :SET CYLINDER = 632(8) 
000905 MOVB  aLSTTRK.P. ck (RS) -SET TRACK = 2 
900016 MOV p. -BUS ADDRESS 
0000:2 MOV 8-4. P. heiken. RS) aia 4 WORDS 
CLRB Os P. C81 HRS) :SET 22-SECTOR FORMAT 
SR Pe DRVCAL *READ 4 WORDS OF BAD SECTOR FILE 
cos474 BIT aoiIYDER, RECODE :SEE IF DATA ERROR 
eee i ee Ren 
f YPE : READ ERROR MESSAGE 
053534 10S: CMP jbeosze RWBUF+6 :SEE IF ALL i°S IN I.D. WORD 3 
BNE 12$ ;BR_IF NOT ALL 1°S 
OC7S4E MOVE bRive BADDRV+6 :GET DRIVE NO. 
Oo7s4s BISB #'0, BADDRV+E s CONVERT TO ASCII 
TYPE  ,BRODRV : TYPE ORIVE 
TYPE  ‘ALNPAK ‘Te LOADED WITH ALIGN PACK™ 
3° oe 
jERROR FREE RETURN 
po000: {2$: § MOVB sRECAL,P. sosineie -SET RECALIBRATE COMMAND 
JSR Pc ORVCAL sRECALIGRDTE THIS DRIVE 
82, (SP) sFIX UP RETU 
: Ae aT ia PU Tae RE eae 
tbserr TUP - SET UP FOR LOOP ON ERROR 
:#THIS SUBROUTINE CANNOT BE CALLED Y ANY OTHER 
;#SUBROUTINE --- ONLY MAIN-LINE C 
weet tn Sisco ae ah HG, FE cin ane 
bitty. Moy (SP), asSTACK-2 ;MOVE RETURN PC ON STACK 
MOV sSTatk-2, SP :RE-INIT THE STACK POINTER 
CLR RECODE :CLEAR ERROR RECOVERY FLAGS 
CLRE sé RCN NT CLEAR RETRY ERROR COUNT 
MOV #PA SET PARAM BLK ADRS 
000001 MOVE sSUBeLR. B. cmno (Re): :SET SUBSYSTEM CLEAR CMND 
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03 SchoRY - SCAN DRIVE FOR STATUS 


ISR VCAL :CLEAR THE SUBSYSTEM 
177776 ney aA, aars i BE-ESTASLISH TORITY 2 
RTS 


s batt, CHKITR ~ CHECK CURRENT TEST ITERATION NIGER 


ie seine TR He Hatt OTE eee 
US pt Sis IT i. eee abut THs f ae 


370. THE STORED PC (AND THE TE SKIPPED). iF IT 1s 


SE RN. pt wevek On any Petes BO a skin oe A RUN 


:#WHICH STARTED sit ADRS 200, ALL TESTS WILL BE 


CHKITR: MOV R1.-(SP) ;SAVE R1 
p00144 901115 move e150. .SERMAX ;SET MAX ERROR CNT 10 100 for § $SCOPE 
003126 TSTa © buacé :SEE IF DUAL-ACCESS FLAG SE 
003106 feve i LAG ae START 
001326 TST SPass :SEE IF oTRST Pass 

BNE 43 :BR IF NO 
00000: 0901304 3s: MOV #1, STIMES -SET UP FOR 1 ITERATION 

35 | G0 RUN puAL-AccESe TEST 
001102 4$: MOVE §TSTNM,R1 :GET CURRENT TEST 

DEC i : DECREMEN By 

ASL C/I ‘DOUBLE IT, TO GET TEST LIST INDEX 
O0S&0E 001304 MOV / TSTLST(RL),STIMES ;LOAD_ ITERATION NUMBER 

Ba . ee >BR IF TEST SHOULD BE SKIPPED 
poc004 opooc2 1S: 84, 2(SP) [ADJUST RETURN PC TO RUN THIS TEST 

2s: MOV | (SP)+,Ri *RESTORE RI 
RTS / : RETURN 





#0 NATED BY <CR> 
;#THEM IN A NULL (0) BYTE 
#RUB-OUT (4) FEATURES ARE PROVIDED. 
; #IMMEDIAT Y FOLLOWING TH THE SUSROU UTINE CALL THREE SPECIAL 
URN BE LISTED: FIRS Et RE Is 
TAKEN IF (1) Is WVPED THe SECOND IS TAKEN Rr un Is 
247" THIRD 18 Tak N IF (tU) OR INVALID INPUT IS TYPED. 
i (#8) /IS 1 D, THE Zort FABRE SWITCH REGISTER IS OPENED 
aF OR MOD MODIFICATION, IF SELECTED, AND THEN THE (1G) RETURN 
i 
jsTHE seer OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 
by 
:* CALL; - JSR PC, ROCHRS 
:# <CONTROL-€ RETURN ADDRESS> 


:# <CONTROL-Z RETURN ADDRESS> 








SEG Ci3zé 





44 
in 


hh 
= | 


Sead eee Bis 


sit 


€ 
t 


ii 


i 


“IN 
4 


ais 
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ROCHRS - frac a Ste NG OF KBD INPUT CHARS 
4 eeu OR ERROR RETURN ADDRESS> 


| POREREESEROEESSEDODEEESEPEEESEESEOSEROEEREOHEROEEOSEOSEEREEOES 


RDCHRS: 
MOV R1,-(SP) 
MOV Re, -(SP) 
CLR RO 
CLR Rl 
READ A CHARACTER 
es: ROCHR 
MOVE (SP)+,Re 
sCHECK FOR (10) 
CMPS + 
TYPE CNTRLC 


3S: MOV g4(SP),4(SP) 
*CHECK FOR (42) 
4g: CMPB =ss« #032, R2 

ADD 82, 4(SP) 


R 
-CHECK FOR (1U) 
b$: CMPB sé 02S, R2 


BNE 
TYPE CNTRLU 
7S: ADD 4, 4(SP) 


BR 
“CHECK FOR (16) 
&§: CMPB 4s 8007, Re 
BNE cr} 


TYPE CNTRLG 
ISR PC GTSWRG 


;CHECK FOR RUB-OUT (DELETE) 


gs: CMPBsé#177,,Re 

BNE 145 

TST RO 

EQ 2s 

TST Rl 

SNE 11 

INC Ri 

TYPE BKSLSH 
118: CLR SCRACH 

DEC 

TYPE SCRA 

BR 23 
148: TST RI 

BEO 16$ 

YEE gBkSL 
“CHECK FOR CARRIAGE RETURN 
eS: CMPS #015,Re 


Re 

ALIZE CHARACTER COUNT 
ALIZE RUB-OUT INDICATOR 
HARAC 


) TYPED 

(#2) 

egnT TQ NEXT RETURN ADR. 
T 


(¢2) EXIT 


(tU) EXIT 


‘OPEN SOFTWARE SWITCH REG. FOR CHANGE 
;TAKE (¢U) RETURN 


;SEE IF RUB-OUT (DEL) TYPED 
:BR IF NOT RUB-OUT 

:CHECK THE CHARACTER COUNT 
2 = 


;BR_IF COUNT = 0 

;CHECK THE RUB-OUT INDICATOR 
;BR_IF WE HAD A B-OUT 
At gy INDI 


; TYPE A “SLASH (\ 
;USE ale —_ FOR TEMP. BUFFER 
;DECREMENT COUN 


RO 
MOVE ag A SCRACH'’ ; GET Lek cHAR. INTO BUFFER 


sBCH CHO C HARACTER TO BE DELETED 


THE ND tnt 
BR iF ye ad be IS NOT SET 
TYPE A BACK- 
;CLEAR THE RUBLOUT INDICATOR 


;SEE IF <CR> TYPED 


( 
poe OLD pe POINT TO NEXT RETURN ADDR. 


SES 0133 
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z 


enti 


3 


BB 


Me Oto PUNE tr OD BE ohoe= 


tu 
to 


NNNNNN NNN NN NNN NNN NNN in ~ i ie ie oe he oe oe 
ee hh ERRORS RAMANA RAEAASARS SARA RRELANRA ARADO te 


HEH SVVVRRPZOREGBHIRAY 


+ 
co 





res 
coPih  Os-oetore 18:08 Radars = Reno a STRING BF KBD 


eskie ; HANDLE Fee SIBLE. . Mu 
10 1130237 OOS5 sOve SERCH 
14 104401 005532 TYPE “ 
pase O0Sebe me ,BUFFO(RO) 


O§-CT= -76 10:13 PAGE 13 
oF Share oe 
;BR IF «CR 
FOR Mi ad BUFFER 
4 BUFFER 
fe cH Tee fh 
RENT eA OU UNTE ® 


CRaRaC TERS TYPED 


: ee et nag 
6 1127 s o0s26e2 MOV FFOCRO) pitt INATS t INTO BUFFES 
scant sae rv! “BFS Ke rik Na 
O3204Se } 1 O0i314 T aout : oe toh» <LF> 
=35028 Toeus 901315 13 * c aR ne Exit oe 
B30¥e4 112760 900000 posse == MOVED, BUFFOCRO) T TERMINATING NULL INTO BUFFER 
A25cFE RERESE 86/4. 5P) in rt, Re YOR SObRESS 
030500 O12602 24g MOV )+, 22 
030602 61260) MOV (SP)o'R: 3} 
030504 600207 ATS pe sRES TORE Ri EXIT 
, SEEPESERESSSELESASLSASSSESERELPALLALSAAELELALALESLATEATALERALAL 
‘dott. TYPTST - TYPE CURRENT TEST ANE "TERATION R 
s#THIS QUT NE TYPES : “Xx Yv) ". WITH NO <CR> 
:#0R <LF>. S THE NUMBER OF THE C.. £N TEST 
payvy¥y ist NUMBER OF ITERATIONS ¢ > Her TEST. 


He Nae 


JSR PC, TYP 


T Shae Teer. THE INDEX INTO THE T= LIS 


» Sabbenanuesnenseoshaconneaanonqnenusnoenqnensasessunssncansnst 


o4401 012430 TYPTST: TYPE 
Rehecs APc7G2 mye OAT eR 
030514 O0&216 ASR (SP) 
3051 agh8 NC (SP) 
325238 10446 YPOS 

030522 BYT : 
Sapees 1 ob 012423 ibe SPACES 
920520 O16146 005606 Noy tSTLST(RL),-(SP) 
5epeSe O06 iy 98 6 
030537 900 "BYTE 

030540 000207 RTS PC 


is FF folk Siro s STACK 


HINGAENEN 5 1 TE 
Tie TESE NB. IN OsTAL 


S wees BING ZEROS 
: TYPE E 
PUT Pa a RATION NO. ONTO STACK 


ITERA 
:t RAT oct 
TYEE 6. RAT ON AO. IN OCTAL 
“SUPPRESS LEADING ZEROS 

: RETURN 


s LLLELERELELAESE SEALS LALA AAAS FLL RTTARARERELERELELELELERLELELEL 


‘ETT, TYPPRM - TYPE CURRENT PAR 


j #THIS ee TYPES T 
; #WHERE URRE 


AMETER 
: XXsYYYYYYYY 


YY 2] ITS VALUE ae ‘Blots, Ulta LEADING 


#ZEROS SUPPRESSE NOTE: | 
:#0N ENTRY, RI MUST CON brn’ 
:#PARAMETER TABLES, FOR THE C 





P NiOnT +" DONE. 


Me ane IN PARAMETER. 
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tYPPRM - TYPE CURRENT PARAMETER 


;# CALL JSR C, TYPPRM 
se sonncecsoususssensseesbassescoeenesnecsonensecsenseseosonsnses 


TYPPRM: Ov PRMNEM(R1),PRMBUF_ ; PUT AANENONIC INTO OUTPUT BUFFER 
MOV PRMLST(RL), Louoct': “PUT LOW BITS 0 OF PARAM. INTO LO 
C HIGOCT -CLEAR HIGH BINARY SITS 
CMP #°MA,PRMNEM(RL) SEE IF PRRRte TER 1S (MA) 


BNE 
MOV PRMLST+2(R1) HIGOCT “PUT HI BITS OF PARAM. INTO HIGOCT 


1$: MOV @LOWOCT, -(SP} STACK 
ISR PC, J8$0820 ~iPUT BEORESS OF #3 Meet a age oN 
35R PC’ JaSSUPRS : TYPE ryyyyyyy, SUPPRESSING LEADING O°S 


RTS PC’ ; RETURN 


So ag en gy eo ge gee gy renege 
3, Th of TYPE C T, WORD mead ery PATTE 

HI SUBROUTINE eS 
#WHERE XX IS THE NUMBER 


RE XX Fae CURREN T WORD ay 
; *USER-DEFINED PATTERN 15, Roy sD 1S ITS fe-err 


:#VALUE, IN OCTAL O1G178. > AND <LF> ARE NOT TYPED. 
:¥0N ENTRY, R1 MUST eONTAIN SHE rd OF THE CURRENT 
ORD IN THE PATTERN 1S TABLE 


ame) anda anal 2 sce a 
TYPPAT: 


TYPE WORDSP 
MOV Ri -(5P) pure iat fe onto STACK 

ASR (SP) Fok WORD NO. 

TYPOS 

.BYTE 2 see IY Petit = Y Ean YPOC 

-BYTE 1 : TELL TYPOS TO TYPE LEADING ZEROS 
TYPE EQUALS : TYPE 

MOV PATIS(R1).-(SP” : ;GET BINARY VALUE OF THIS WORD 
TYPOS :TYPE VALUE IN OCTAL 

.BYTE 6 :TYPE & DIGITS 

“BYTE 1 :TYPE LEADING ZEROS 

RTS PC : RETURN 


TTL CODPIE « MODIFY LSERTEFINED PATTERN 16 
"SBTTLeMODPIS - MODIFY USER-DEFINED PATTERN 1S 
:#THIS SUBROUTINE DETERMINES WHETHER OR NOT useR -DEF INED 
:#DATA PATTERN 15 SHOULD BE OPENED FOR MODIFICATION, AND 
T CONTROLS THEIR 


:#IF SO, IT “FEO S NEW 

; SINPUT’ ON TTY. IT CHECKS VALUES FOR VALIDITY, AND 
:#L0ADS | tHE 16 WORDS INTO THE PATTERN 15 TABLE (PATIS). 
:#IF 74" OPERATOR ANSHERS THE REQUEST FOR B PATTERN WORD 
:#WI7H EXCLAMATION POINT (!) (CR), THE SUBROUTINE 

:#PROPAGATES THE LAST WORD. TYPED {NTO ALL REMAINING 

:aWORDS OF THE PATTERN 1S TABLE. 

*# CALL - JSR Be MODP I 


SES 


0135 
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5p PRRRAAAAEAARASA ELLE SAAS ASSLS ASSESSES SLLSSEFSEASLLSEFELELELELS FFE 


MODPIS: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV 2 = (3P) 
:SEE IF PARAMETER ts P 
che art, [PRUNEMCRL) : 
-SEE IF PATTERN 15 Is SPECIFIED 
iT a7 is, PT 
SEE IF PATTERN 15 SHOULD BE nootF 
4§: 
ISR pet A Bas 
243 
26S 
23 
TST 
BEQ 228 
CMP #°M, BUFFO 
BEQ 6S 
TYPE  ,BUFFO 
TYPE  ‘$QUES 
BR 4g 
“MODIFY PATTERN 15 
63: Tyee SELPIS 
8$: JSR BC TyPPAT 
TYP » BPAC 
TYP 
;READ AND CHECK PROP IF ANY 
JSR PC, ROCHRS 
Dug 
268 
8 
TST RO 
BNE 128 
10$: ADD #2,R1 
CMP #32. Rl 
BEG 2 
BR 8g 
123: CMP #’! BUFFO 
BEO 16$ 
CLR Re 
CMPB sag”! BUFFO-1(RO) 
BNE 14 
CLRB § BUFFO-1(RO) 
DEC RO: 
ING R2 
14$: CMP #6, RO 
BLT 0 
MOV HEUFEO -(SP) 
ISR C,OCTBIN 
20$ 
MOV (SP)+,RO 


;SAVE RO 
Bae 
‘BE rf no C nent PARAMETER IS (PT) 


saee IF PATTERN 15 SPECIFIED 
IF NOT SPECIFIED 


NED 
a BE ERROR RETORN ADDRESS 
Fetal nOOTF CATION NOT REQUESTED 


;SEE IF ( 
BR IF MODIFICATION REQUESTED 
;ECHO BAD INPUT 


;G0 ASK AGAIN 
;TYPE “MODIFY PATTERN 1S” 
s INITIALIZE at INDEX 
;TYPE CURRENT WORD AND VALUE 
37 A_SPAC 
;TYPE ASTERISK AND SPACE 


;READ NEW DATA PATTERN WORD 


: CONTINUE tT NEXT WORD 


;BR TO PROPAGATE CURRENT VALUE 
:INIT. (!) INDICATOR 
; SEE Pl B CHAR IN BUF IS (!) 


tINSERT TERMINATOR BYTE 
MENT owe NT 
;SEE HOW MANY CHARS NOW 
00 MANY 
ADDR. ON STACK + ta SES 
; CHECK DIGITS AND CONVERT TO BINA 


ERROR RETURN ADDRESS FOR deTsiN 
:GET BINARY VALUE 








WHE THER LP PATTERN 1S SHOULD BE MODIFIED 
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HobP1S - MODIFY USER-DEFINED PATTERN 15 


TST HIOCT E_IF_ VALUE Ex S 16 BITS 

gf Fei BSE 

MOV 0,PATIS(R1) UT Nes se Me INTO TABLE 
T R te F ef WAS 

BES 10$ sBR IF ( 1 was Nor YPED 

;PROPAGATE CURRENT WORD TO END oF PATTERN 15 TABLE 


iss: cite #30. .R1 : EE iF BL DONE YET 
MOV PATIS(R1), PATiS+3°R1) :PROPAGATE TO NEXT WORD 
ADD 82, R1 SINCREMENT WORD INDEX 
BR tee :LOOP UNT IL DONE 
ECHO Bag INPUT 
20$: TYPE , BUFFO ;ECHO BAD INPUT 
SQUES TYPE <?> AND <CR>,<LF> 
ae ag :BR TO ASK AGAIN 
:NORMAL RETURN 
22: | MOV (SP)+,R2 ;RESTORE Re 
MOV (SP )4/RI tRESTORE RI 
MOV (SP)+' RESTORE RO 
PC : RETURN 


RTS 

-(¢C) RETURN 

24S: MOV SORVTST,6(SP)  :PC FOR (tC) RETURN 
22$ :BR TO RETURN 


-(4Z) RETURN 
26$: MOV BASKMDE,6(SP)  ;PC FOR (12) RETURN 
BR 228 :BR TO RETU 


: saTTh CRPRH © CIECK VALLE OF INPUT PARAMETER 
' eT KPRM - CHECK VALUE OF INPUT PARAMETER 
THIS SUBROUTINE CHECKS THE CONTENTS OF LOWOCT AND 

VALUE NST LOWER 


:#HIGOCT (IF 32-BI ) AGAT 
*#LIMITS FOR THE CURRENT PARAMETER. THE PARAMETER TABLE 
i FOR T paRANET R MUST 
*T0 CHKPRM IN R1 ON ENT THE PARAMETER VALUE 
:#I§ LEGAL, IT IS ONTERES into THE PARRMET ER TABLE 
:#(PRMLST). IF NOT, A RETURN IS MADE TO THE ADDR. FOLLOWING 
j #THE CALL TO CHKPRM. IF THE PARAMETER HAS A 2-WORD 
VALUE (32 BITS) Rl IS INCREMENTED BY 2 BEFORE RETURN. 
: CALL JSR CHKPRM 
: CERROR RETURN ADDRESS> 
5 EREREELELELLL LEER EERE EL RLE RELL LALA LE LEAR RERKAERELARARRELELAARTE 
CHKPRM: SAVREG ;SAVE RO-RS 
MOV R1,Re GET COPY OF INDEX 
ASL UBLE IT 
CHP #”"MA,PRMNEM(R1) : iste IF PARAMETER IS (MA) 
iI HIGOCT sage IF HIGH BITS = 0 
163: MOV (SP), (SP) T ERROR RETURN PC 
6 TO RETURN 


a 
;CHECK VALIDITY OF 16-BIT PARAMETER VAL 


UE 
oosHee oneoeze és: CMP LOWOCT,PRMLIM(R2) ;SEE IF INPUT VALUE IS TOO SMALL 


0137 
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- RKBLIVR 
| DZREMC.P11 © OS-OCT=76 10: HKPRM - AuECK VALUE OF INPUT PARAMETER 
| oie psiei ee OOs466 06024 au ee OcT, PRMLIM aches E NUT NPL VALUE Te z ARGE 
7 c + T A 
) e318 B3ibe5 TBTSee (ote a is . 7 : Inbur VALUE 1S Tod Tepe 
cate 031252 013761 oOOs4se O0S712 AB peRoet Pratt i NEW PARAMETER VALUE INTO LIST 
7320 031260 000457 28 T 
? + CHECK vEuIOITY OF OF aah paRare tes ia 
? 031262 032737 000001 ocosH#se 20S: 8 WOCcT EE MA IS ODD 
7323 931270 001365 NE ee p 
7324 gie7e bes7be 005470 006024 CMB HIGOCT, sPRILINGGCRE) SEE 1F ioe chy T00 
7326 petene 510 Be 133 BS te Hat Woes rae tS Lou LIMIT 
7327 031304 G23762 OOSHEE O06022 CMP LOWOCT, ‘ah ol SEE tf LOW WORD Is 
7328 031312 16037 BLO 3 LOW WORD IS TOO ovat 
7323 031314 O23762 OOSH70 006030 24S: CMP HIGOCT,PRMLIMeG(A2) j SEE IF HIGH WORD IS TOO BIG 
7230 031322 191240 BHI 16$ :BR tf HIGH WORD TO 
7321 031304 601004 BNE 12 R WORD NOT EQUAL TO UPPER LIMIT 
7332 031326 023762 OOSHbE 006026 CMP LOWOCT, PRMLIMG4(R2) : SEE IF LOW WORD IS Too L ARGE 
7333 031334 101333 é BHI 16$ -BR fF LOW WORD IS TOOL 
7334 - UPDATE se-81T PARAMETER VALUE IN LIST 
7335 0313326 013761 OO0S466 O05712 26S: LOWOCT, PRMLST(R1) Sear LOW WORD INTO LIST 
733 0312344 013761 005470 005714 NOV HIGOCT, PRMLST 2K 1) ;PUT HIGH WORD INTO LIST 
7337 ‘ COMPUTE AND TYPE_NA X ALLOWABLE W ORO" COUNT FOR THIS MA 
| 7338 031352 7? 031430 JSR Pc MXURDC ;GET WORD COUNT IN R1-RO_ 
7339 031356 104401 010627 . TYPE — ,MAWROC ;TYPE “MAX WORD COUNT = 
| 7340 031362 010037 003166 MO Ro. SUMLO1 
| 7341 031366 619137 003170 MOV Ri? SUMHI1 
7342 031372 O12746 003166 MOV #SUMLO1.-(SP)  ;PUT POINTER ON STACK 
| 7343 031376 004737 9OS2640 ISR PC, $0820 :CONVERT TO OCTAL 
| 7344 031402 004737 053154 JSR PC’ $SUPRS : TYPE I 
7345 O31406 104401 001315 TYPE gtr RLF s TYPE <CR> 
| 7346 O31412 062766 900002 ooon14 ADD et NCRENENT ai INDEX 
| 734? 031420 062718 oc00002 28$: ADD #2. teay GET rt PC 
7348 031424 104410 30$:  RESREG RESTORE Roe RS 
| 7348 O31426 600207 RTS PC ;RE 
| 7369 
7351 
| 73a 
7353 : eT ORD COUNT TOR CURRENT MEM LIMITS AND CURRENT 
ere thnx - GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA, 
| 7355 SAND MOF AVE THE WORD COUNT IN RI-RO. NO REGISTERS ARE SAVED. 
7356 © LELKLSKLLE EE KEK AE SRE KEE SHAE LARA SR ARRA ESHA ARARFLALREZRELRAHTTAFE 
| 7357 031430 013700 006106 hiwROC: MOV MAHILM, RO ;GET LO BITS OF MEM LIM 
7358 931434 013701 906110 MOV MAHILM+e2, RI :HI BITS OF MEM LIM 
~=«- 7389 «021440 163700 o0574e2 SUB’  MA,RO :SUBTRACT MA FROM MAHILM 
7360 «031444 605601 SBC RI 
«7361 031446 163701 005744 SUB MA+2,R1 
«- 7362 «0314Se 100413 BMI 275 :IF NEGATIVE, RETURN 
«7363 031454 1opsat cLe :DIVIDE BY 2° TO GET WORDS 
7364 031456 OO600i ROR Rl 
53 ates eae 000001 Bop ot RO INCREMENT BY 1 WORD 
7367 O31466 OOSSOl ADC Ri’ : 
| 7368 031470 005701 TST Ri 
| 7363 031472 001403 BEQ 275 :BR IF WORD COUNT < 65,536 DEC 
| 7370 031474 605000 CLR RO :MAKE WORD COUNT = 65,536 
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TRENC. Pll 0S-O0CT-76 10:03 CHKPRM - CHECK VALUE OF INPUT PARAMETER 
737 909001 MOV JRL 
| Fh SS Bae mt ROR a 
fe 
‘Si 
7376 AoTTL DRVSER — TYPE DRIVE SERIAL NUMBER (LOW 2 DIGITCN 
7377 i! a DRVSER - " ORI ve SERIAL NUMBER (LOW 3 DIGITS) 
2308 HI SUBROUTINE TYPES “DRIV . NO. XXX" CIN DECIMAL), WITH LEADING 
4 
d japeetenstonessseesneasusneeneenvegeesseneeaneenssneanenstanes 
7381 031504 104407 ALT AVREG RO-RS 
7382 031508 004737 027300 oo PC, INITSS LEAR S.S. AND F ARAMETERS 
7383 031512 i12765 000141 co0001 MOVB aROSTAT P pan “SET READ STATUS COMMAND 
7384 031520 004737 037662 JSR C,DRV fle ;READ STATUS OF THIS DRIVE 
7385 031524 104401 011345 TYPE "DALY ; TYPE DRIVE" 
7385 031530 104401 011363 TYPE SERNM YPE “ SER. NO. 
7387 02:534 O16501 900054 MOV Bai 1 CRS) Rl 3GET "A" STATUS BYTE il 
7388 031549 012704 OSe274e MOV #SOCTVL. RG :GET ADDR OF CHAR BUFFER 
7383 p3i5us 010446 MOV RY, -(SP3 : STORE IT ON STACK FOR $SUPRS 
7330 031546 912703 990003 MOV #3'R3 tINIT CHAR 
7391 931552 006101 ROL RI : INITIALIZE art POSITIONS 
| 7392 031554 006101 ROL R1 
7393 021556 O0610! 4$: ROL R1 :GET NEXT 4 BITS 
| 7394 031560 006101 ROL R1 
7295 031562 006101 ROL R1 
73% O31564 006101 ROL Rl 
7397 031566 010100 MOV R1,RO ;GET A WORKING COPY 
| 7398 031570 042700 177760 BIC #177760,RO :CLEAR ALL BUT LOW 4 BIT 
7399 031574 Ose 000060 BIS #°0,R0 :CONVERT A BtcIT TO ASCII 
7400 031600 110004 MOVE RO, tR4)+ :PUT asc DIGIT INTO CHAR BUFFER 
7401 031602 605303 DEC R3 “DECREMENT CHAR COUN 
7402 031604 364 BNE $ :BR IF NOT 3 \e 
| 7403 031606 105014 CLRB 3s (R44) ‘INSERT NULL TERMINATOR 
| 7404 831610 604737 oS52154 ISR PC, J#SSUPRS : TYPE DRIVE SER. NUMBER 
| 7405 O31614 104401 O01315 TYPE ,SCRLF “TYPE <CR> AND <LF> 
| 7406 O31620 104410 RESREG RESTORE RO-RS 
7407 O3lb22 07 PC : RETURN 
| 7408 
ae 
| 7411 « KAKSKESALAKSA SALE AALS LASSER A HARARE KA RASSRERAALREAAAAAALAAALAAALLEE 
7412 ‘ASTTL CRTISER - TYPE CARTRIDGE SERIAL NUMBER 
| 7413 THIS SUBROUTINE TYPES "CART. SER. NO. XXXXXXXXXXX" CIN OCTAL), 
7414 *#WITH LEADING ZEROS SUPPRESSED. 
| 7415 Tee aap ne ame a ay a ees 
| 7416 031624 004737 027300 AATSER: JSR PC, INITSS ;CLEAR $.S. AND PARAMETERS 
| 7417 031630 105065 000007 CLRB pACSLH(RS) :SET 22-SECTOR FORMAT 
| 7418 O31634 105737 OO31i5 TSTB : CHECK THE ACTUAL FORMAT 
| 7419 031640 001402 BEQ ay :BR IF 22 SECTORS 
| 7420 O31642 105265 op0004 INCB =P. SECT(RS) ‘IF 20 SECTORS, READ SECTOR 1 
 «- 741 «~OS1E4E 112765 O00l2e1 oo0001 4s: MOVE § #RDDATA,P. CMND(RS) :SET READ COMMAND 
«74282 O31654 012765 000632 oD0002 MOY BLSTCYL; P. CYLNCRS) :SET cL = 632(0CT) 
7423 031662 112765 00002 900005 MOVB  #LSTTRK’P.TRCK(RS) :SET 
«7424 «031670 O12e765 063526 O00010 MOV wRUBUF P. BALOCRS) j3eT "BEAD BUFFER ADDRESS 
| 7425 O31676 012765 177776 o000l12 MOV 2,P.biC (RS) SET 5 COUNT TO READ 2 WORDS 
 - 7426 031704 004737 037662 ISR PC BRVCAL ‘READ. SERIAL NO. IN BSF 
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D2REMC.P11 OS-OCT-7& 10:03 eRISER - TYPE CARTRIDGE SERIAL NUMBER 
me? 031710 104401 011354 TYPE ,CART s TYEE “CART.” 
74 Batoa4 ena 4287 MOV ety -(SP) der PE OOTNTER. Pop § $0820 
7430 0317. 737 OS2640 JSR PC, JeshB20 s CONVERT BINARY TO OCTAL 
7431 031730 004737 O53154 JSR PC’ JeSSUPRS :TYPE CART. SERIA 3 NO. IN OCTAL 
7432 031734 104401 001315 TYPE SCRLF : TYPE oH "AND <L 
7433 0321740 000207 RTS pc : RETURN 
7434 
oase 
7437 . =< SHREK SESLEAASRES SEAL SRA SHRAL SALE L LALLA LALLA ALA ALELALAERAALELEFFES 
7438 BITL SEEKER - PERFORM IMPLICIT OR EXPLICIT SEEK 
7439 : ¥THIS SUBROUTINE CHECKS SWR BIT 7, AND IF IT IS 0, AN IMPLICIT 
7440 SPSS VIA THE READ HEADER COMMAND'IS PERFORMED. IF THE HEADER 
744] *DOES NOT CONTAIN THE CORRECT CYLINDER NO. AN ERROR IS REPORTED. 
7u4D *IF SWR BIT 7 AN EXPLICIT SEEK COMMAND IS PERFORMED. 
7443 ;#ON ENTRY TO. THE He. SuBROUT IN THE DRIVE AND CYLINDER NUMBERS 
7444 :#MUST BE PRE-L THE PARAMETER BLOCK. 
744s :# CALL - -— SEEKER 
a se Roe seman eae 
7448 O31742 O1004G anes MOV +SAV VE RO 
7449 031744 112765 000117 000001 MOVE ROEEK P P,  OMND CRS) * T SEEK COMMAND 
7450 O21 032777 000200 147160 BIT #BITO?, ISWR ize IF EXPLICIT SEEKS REQUESTED 
7451 031760 001023 BNE R IF EXPLICIT SEEKS 
wS2 031762 112765 000125 oo0001 MOVB § #RDHEAD,P P.CMND(RE) joel READ HEADER COMMAND 
7453 031770 737 037662 JSR PC. DRVCAL A HEADER 
7454 03] 0is200 o00024 MOV RKbB TRS) RO GET WORD 1 OF ACTUAL HEADER 
7455 032000 oecdss o000de CMP RO,P.CYLN(RS)  ;COMPARE 1 EXPECTED CYLINDER 
032004 001413 BEQ 48 ‘BR IF EQUAL 
7457 032006 904737 041074 JSR ‘ST ORE PREV. BND CURRENT CMNDS 
7458 032012 016537 O00002 001174 MOV 5 ATEN TRS), $REGS' :GET GOOD C 
7459 032020 010037 OO1176 MOV 0, $REGE ; GET ny 
7460 032024 i04Née2 ERROR be :CYLINDER MISCOMPARE 
7461 O32 000402 BR 4§ 
7462 032030 004737 oO27662 23: ISR PC DRVCAL ;PERFORM COMMAND 
7463 032034 012600 4$: MOV (SP3+, ‘RESTORE RO 
7464 032036 000207 RTS : RETURN 
74E5 
74EE 
7457 
74EE ern i at te, thee 
7463 ‘ABTTL STALL - STALL FOR ST UNIT STALL TIMES 
747) :¥IF SWR BIT 8 = 0, THIS SUBROUTINE STALLS FOR ST STALL TIMES, 
7471 TxWHERE A STALL TIME = 40 US, FOR AN “AVERAGE” CPU. IF BIT S 
7472 :#IS EQUAL TO 1, A RANDOM STALL IS APPLIED. 
7473 ** CALL - JSR’ PC,STA 
re HEHEHE HEHEHE EER IHRE R EERE EEE 
7476 O32040 O10046 ated MOV RO, -($P) : SAVE RO 
7477 O3c042 O10146 MOY SAVE Ri 
7478 032044 032777 OOD4OD 147066 BIT RatTOs, SUR ‘APPLY RANDOM STALL ? 
7479 «O22 001407 BEQ 1$ ‘BR IF NOT RANDOM 
7480 922054 737 052036 ISR PC, SRAND : GENERATE PSEUDO-RANDOM NUMBER 
7481 O32 013700 052136 MOV SLONUM, RO :GET IT INTO RO 
7482 032064 200 ASR :SCALE IT DOWN 


SEG 0140 
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000207 


000207 


005200 
000002 


. 00S502 


O000i6 
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150742 
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STALL - STALL FOR ST ‘iNET STALL TIMES 
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33 ;GO_ STALL WITH RANDOM NO. 
ALLS, RO ; GET REQUESTED NO. OF STALLS 


;RETURN IF NO STALL REGUIRED 
#14. ,RI ;SET_CONSTAN 
Rl HTNNER LOOP COUNTER 
= HINER LOOP BR 
RO SOUTER LOOP COUNTER 
:OUT R 
(SP)+,R1 ;RESTORE R : 
(5P)+;RO ;RESTORE RO 
PC ;RET 


ggg ne age oe my eh pete yes wn nn ae aema ecm 
RNDADR - RANDOM CYLINDER ADDRESS GENERA 


aBTTL TOR 
s#THIS Rese ah Lead NERAT ; A PSEUDO-RANDOM 9-BIT C 


i SSUBROLT TINE 
3# CALL ADR 
a). eee 


es: 


BIC 
CMP 
BGE 
BIC 
RTS 


S IT IN “CYLNDR”. IT REQUIRES fue Sy a/c 


GENERATE 2 16-BIT RANDOM NUMBERS 
agit CYLNDR :GET A RANDOM _NU NUMBER 
#177000,CYLNDR :SCALE IT TO 9 BITS 

#632, CYLNOR :SEE IF bt 1S TOO BIG 

2g ‘BR IF CYL IS OK 

#81708, CYLNOR pers DOWN TO A VALID CYLINDER 


.SBTTL ROUTINES TO HANDLE KW11-L OR P CLOCK 


+s ELRALLLAL LAA AE LAR ER EA RAL LAE ERA AAA LALA AAA RAA RE LAR ARERR ELEE 


t ECLKON - ENABLE KW11-L OR P CLOCK INTERRUPT 
SSR ELEKLERE SLE AE LEA RELEASES HRERA RRA AREKARE REAL LEE AA RAE LERSEE 


AKON: 


1$: 


3$: 


RTS 


PCLKF ;SEE WHICH GLO WILL BE USED 
:BR IF P-CLOCK TO BE USED 
#100, a@LKS sL-CLOCK, ENABLE. INTERRUPT 


PC 
t-1667. ,dPKSB SET 60 HZ. COUNT 
HZ ; DETERMINE ees FREQUENCY 


3$ ;BR TF 60 H 

#-2000. , PKSB ET SO HZ. COUNT 

#131, aPKS ; ENABLE INTERRUPT, CNT UP,REP. INT. 
O KHZ.,AND RUN 

Pc RETURN 


: ee ee ee 
t ECLOCK - HANDLE KWL11-L OR P CLOCK INTERRUPT 


A Ock: 


INC 
RTI 


OO IGNIFY A CLOCK TICK 


SIGNIFY_A CLOCK TICK 
;RETURN FROM INTR 


5p RERREREERERER REE RELA LEE LE ERE RE RAE RE RRERERRE LEER ERE EEE EERERERE 


SEG O14 
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DZREMC.P11  OS-OCT-76 10:03 ROUTINES TO HANDLE Ko OR P CLOCK : 
7539 :¥CLKOF - DISABLE KW11-L OR P CLOCK INTERRUPT 
40 = = ESKSSERESERESE RSS SS SSSA E SA SRERRE RASA ASRARERSRE SAL AAA LAA LAER AESES 
41 032236 105737 003122 ELKOF: TSTB  PCLKF ;SEE WHICH CLOCK USED 
7542 032242 001003 BNE 1$ *BR IF P-CLOCK USED 
7543 032244 005077 150670 CLR aLKS ; DISABLE KWil-L INTR 
7544 032250 000207 RTS PC TURN 
7545 032252 905077 150664 1S: CLR aPKS ‘DISABLE KW11-P INTR 
7546 032256 000207 RTS PC : RETURN 
754? 
sEd5 
oe ieTTL CUBR ~ CALIBRATE THE SOFTMARE TIER 
rd 
HTH Brit RAT AFRO RE TIER D MING 
sees : Bis a au iN Fi ME Ther REASURE ie rite BETHEL 
7554 HE KW11-L O 
7555 i TPERIOD. od 128 MEA of EMENY cK aR WiPoe A ato tee 
7556 : #RESUL TANT alt, lee CONSTANT IS eer IN POON Race, (I 
7557 :% NANO-SEC). IF THE SUBROUTINE HAPPENS TO TIME OUT WAITING oR 
7558 #A TICK OF THE CLOCK, A RETURN IS MADE TO THE ADDRESS LISTED 
7559 :#IMMED. AFTER THE CALL TO.CALBRT. 
7560 ;# CALL - SR B 
7561 } : <ERROR RETURN ADDRESS> 
fers ; 5 RERLERRLLLALE ELLE LLL E REL AR AREER EERE RARE AE ERE LEER REERER EEE LEE ER 
7564 032260 104407 fon aah SAVREG ;SAVE RO-RS 
7565 O32262 O0s00e2 CLR 2 ? INIT CALIBRATION LOOP CONSTANT 
7566 O32264 005037 cO31E6 CLR SUMLOL INIT SUM TO O 
7567 032270 005037 003170 CLR SUMHI 1 
7568 032274 905001 2s: CLR Ri sINIT TIME-OUT_ INDICATOR 
7569 032276 .005000 CLR RO : INIT CLOCK INTR INDIC. 
7570 ;GET IN SYNCH WITH CLOCK 
7571 032300 004737 O22162 JSR PC, CLKON sENABLE KW11-L_OR P CLOCK INTR 
7572 032304 005700 4g: TST RO ‘SEE IF CLOCK INTR REC'D YET 
7573 032306 001013 BNE 8$ ?BR IF INTR R 
7574 032310 o05201 ING Ri ; INCREMENT CLOCK TIME- OUT INDICATOR 
032312 001374 BNE 4g NO 
7576 032314 104401 011531 6S: TYPE ,CLKFA  TIMED-OU UT ON ct) ct OR P INTERRUPT 
7577 O3e220 104401 O11466 TYPE TIMSK *SAY ALL TIMING TESTS WILL BE SKIPPED 
7578 032324 105037 003123 CLRB 4 ©-—sHOTIM :DON’T ALLOW TIMING TESTS 
7573 032330 017616 o00000 MOV a(SP), (SP) FIX UP ERROR RETURN PC 
7580 032334 O00464 BR 183 GO TO RETURN 
7581 “RUN TIMER TO NEXT CLOCK TICK 
7582 032336 o05000 8s: CLR RO s INIT CLOCK INTR INDIC 
7583 032240 005004 CLR RY ‘INIT HI BITS OF CYCLE COUNT 
7584 032342 O05005 CLR RS :LO BITS 
7585 032344 004737 032516 JSR PC, TIMER :COUNT CYCLES TIL NEXT CLOCK INTR 
7586 032250 032314 65 ‘ERROR RETURN ADDRESS 
7587 ;ADD MEASURED CYCLES TO SUM 
7588 032252 060537 O03166 ADD RS, SUMLOL ;ADD MEASUREMENT TO SUM 
7589 Oze256 005537 00317 ADC Sunt 
7530 437 00317 ADD 4, SUMHT 1 
ra ems tee ee EE OFTEN oe cone 
7593 032372 303595 oo0200 CMP #128. ,Re : SEE iF 18, NERSUREN NTS MADE YET 


7594 032376 001336 BNE 2$ :BR IF 


re eee eee 
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DZREMC.P11 OS-OCT-76 10:03 CALBRT - CALIBRATE THE SOFTWARE TIMER 
7535 : : TAKE AVERAGE OF 128 MEASUREMENTS 
9 032400 012702 000007 MOV #87,R2 ;SET DIVIDE LOOP COUNT 
7597 032404 O00041 128:  cLc 
9g O06 9006037 = 170 ROR UMHI! sDIVIDE SUM BY 2 
3g 412 037 O03166 ROR UMLOI 
? Hig 005 i0e DEC R2 DECREMENTT LOOP COUNT 
ar _ ; DIVIDE LINE rentOe IN N-SEC BY +e? ok Yi oat 4 f, ad CRIB. CONST. 
7603 O32422 o9s000 CLR .SET DIVIDEND = 16666667 
7 24 : CLR al. 
25 4 1 iat MOV #37 
? 2432 0127 500S3 MC, aibetee3, R3 
7607 032436 005737 TST s DETERMINE THE LINE FREQUENCY 
7698 922442 001404 BEQ ee 
7603 032444 012702 000461 MOV #461,R2 eer DIVIDEND = 200000090 NS 
7619 O32450 012703 O026400 MOV #011520,R3 
7611 O32454 013704 903170 16$: MOV SUMHT1,R4 :SET DIVISOR 
7612 O32460 013705 003166 MOV SUMLO1‘RS 
7613 032464 004737 O52462 JSR PC,M.OPID ;PERFORM THE DIVISION 
7614 032470 010237 003156 MOV R2; TCONHI GET FINAL TINTING CONSTANT 
7615 032474 001307 . BNE <¥ :BR IF HI BITS NOT O 
7516 032476 010337 003154 MOV R3, TCONLO :GET LO BITS 
7617 032502 O62716 900002 ADD #2, (SP) :FIX UP ERROR-FREE RETURN PC 
7618 032506 004737 032236 183: JSR PC’ CLKOF :DISABLE KW11-L OR P CLOCK INTERRUPT 
7619 932512 104410 RESREG 5 RESTOR E RO-RS 
7620 032514 600207 RTS PC : RETURN 
7621 
oes 
7624 gs SFL ASHKA KAAS EEL ARAL KARE SKA SERA K ASKER AREA SELLERS RARER ELAERRE 
7625 "SBTTL TIMER - SOFTWARE TIMER SUBROUTINE 
7626 :¥THIS SUBROUTINE LOOPS THROUGH THE SOF THARE TIMING LOOP 
7627 :€INCREMENTING THE CYCLE COUNT IN RY-RS EACH LOOP, AND CHECKS 
7628 1% THE INTERRUPT INDICATION IN RO FOR COMPLETION. IF A COUNT 
7629 x0 4 304 1S REACHED 4-RS, A TIME-OUT ERROR RETURN 
7530 ii 15. nede t3 0 THE ADDRESS LIsTED APtER THE CALL . 
7632 ty <ERROR RETURN ADDRESS> : 
7633 . © SREKLELH EA LHL AL KRE KRHA LEAR AAR RRS AER ERERE RES LRKA AAS RAA RR ERAEZEEEE 
7624 j ‘hex SPECIAL TIMING LOOP ¥*% 
7635 032516 062705 op0001 +IMER: ADD #1,R5 ; INCREMENT LO CYCLE COUNT 
7636 O2eS522 o05504 apc R4 :ADD CARRY TO HI CYCLE COUNT 
7637 032524 032704 o00100 BIT #81706, R4 SEE IF TIMED-OUT WAITING FOR INTR 
7628 932530 901005 BNE 4g *BR IF TIME-OUT 
7639 032532 005700 TST RO :SEE IF INTERRUPT RECEIVED 
7640 032524 001770 BEQ TIMER :BR IF INTERRUPT NOT REC'D YET 
7E4)] . ERFLREL FL EEF ERFL EEL ESRF REESE 
7642 032536 062716 oD0002 ADD #2, (SP) :FIX UP ERROR-FREE RETURN PC 
7643 032542 000207 RTS Pc !ERROP-FREE RETURN 
7644 022544 DI7E16 opo000 4S: MOV a(SP), (SP) FIX UP ERROR RETURN PC 
Peus 032550 000207 RTS PC ERROR RETURN 
7647 
7648 
7649 © KLLLEERASL EKER ASK A SKA LAA RE RERARAAEKEA FERAL SAA RAHA RAARERARTHEE 


7650 tk INIVRB - INITIALIZE VARIABLES USED IN TIMING TESTS 





737 
S33646 
7666 632652 005037 
766? O3265& 000207 
7bES 
7665 
7670 
aESE 
7674 
| 775 
| TE7E 
a te 
«EE 
7680 
oes Zbee 5 Seae 
| ores vain 
cee Sasece °EOo 
758— O32E76 112765 
«Fee BETS Gheaee 
| 7689 O3e71z2 
7680 «(03271 peers 
763) seer 004737 
| RS ee ee 
7695 eee 004737 
AS Hire Bee 
7696 022746 pleeay 
7299 "62766 
ra bee Hee 
5555 032766 01 
7723 632770 teres 
77 sa5078 
770 012702 


IIIS TOE 


meateieatasa: 


i 


oo 


& 


: 
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TIMER - pre ee rwane Tinee E/gase INE 
itvnae CUR BLUIN SCOUNT OF TIMES BELOM SPECD MIN 
titves: CLE BLWMIN OF Times BE SPEC'D MIN 
ELR ABVMX FORWARD TIMES ABOVE SPEC’O max 
tLe aBVrxS aut REVERSE rine BEOVE SPEC*D Max 
SLR SUMLO! BLE ee VERA 
CLR SUMMIT 1 
cL utc pete TIME SUM AND AVERAGE 
903202 MOV 8-1, MINILI sMIN MEAS'D FORWARD TIME 
063204 MoV 8-1 MINIHi 
CLR maxtLl ;MAX MEAS’D FORWARD TIME 
CLR MAXIM] 
903212 8-1, MINIL2 :MIN MEAS’D REVERSE TIME 
148 8-] + eit: 
CLR maxtL ;MAX MEAS'D REVERSE TI! 
CLR Max THe 
RTS PC s RETURN 


a 


000004 
150044 


000001 


sEBTTy TINSEK = MERSURE QW EXPLICIT SEEK Te erm 
4 - 
#THI SUBRS TINE nes MERS The APSLNT Eat ME REGUIRED % PERF ORM 


hp te er fs R tt cee mus’ Te a ac NLT pao S-0U 7 ag tE 
:# REL oe vee, RO re ERROS 


THE T Fe the AGE IS T 
TURN pats ADDRESS (rete B BFTER THE C 
is ont ss 
; J 
 ensastaas eat ea eeesseemesiumaeneainunon 
tise: Mov R2,-(SP) ;SAVE Re 
MOV RS. -(5P) i SAVE RS 
ctR RO’ NIT DRIVE INTR INDICATOR 


Sa BSEEKHD, DRKVEC go "Spec Fac RKBe se SEEK TIMER HANOLER VECTOR 


MOVE - SSEEK,P“CMND(RS) ;SET SEEK COMMAND 
MOV R523 SET PARAM ROORESS FOR DRIVER 
CLR RS :INIT LO CYCLE COUN 
ADD C51, Re ;GET AOR OF RKCS1 IN R2 FOR SEEKHD 
JSR STREMD :STORE PREV AND CURRENT COMMANDS 
JSR pe’ 2! INIT :START THE SEEK 

2s: WORD :PARAM BLK ADR GOES HERE 
ISR PC, TIMER :MEASURE TIME TIL DRIVE ATT'N 
6g ?ERROR RETURN ADDRESS FOR TIMER 
ISR PC, CNVTIM :CONVERT MEAS'D CYCLES TO TIME 
of !ERROR RETURN ADR FOR CNVTIM 
MOV R2,RO :PUT HI TIME BITS IN RO 
MOY R3 afl :PUT LO TIME BITS IN R 
ADD 82,45 :FIX UP ERRO “FREE RETIN PC 

4$: MOV TNR ’ SRKVEC !RESTORE RKO& INTR HANDLER 
MOV (SP)+,R RESTORE 8 RS 
MOV (5P)4'R RESTORE Re 
MOVE seuscl AP P.CMND(RS) :SET SUSSYSTEM CLEAR COMMAND 
13 BC, DRVCAL ;CLEAR THE SUBSYSTEM 

tS: MOV RKBAS, Re 'GET RKO& REG ADOR 
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DEREMC.F1i © -0S-OCT-76 1 tises - T heacune AN EXPLICIT SEEK TIME 
7707 933010 100 900000 BIC SIE,RKCSI(R2) ; 015 RKOG INTERRUPT 
Pa Be Eee Bits eS 
| o716 04306 ma is hen STaTus EK 
77il SE Rake bO3228 oooce4s 900004 MOV O4(SP),4(SP) ntY Paoke oh SEE eC 
zig 03303 74? oR 4§ :BR TO EXIT 
7718 ieeeria INTERRLPT MAOLER FOR GEEKG IN GEEK TIMING TEGTG, 
7715 tASPECIAL INTERRUPT HANOLER FOR SEEKS IN SEEK TIMING TEST 
7718 = SRESSSSSSSSSSSSSSLESASSSSELSESSSESLSSSSLESESSSSSLSSSAELSSSSSRLSLESSES 
771? 033040 011203 GEEKHO: MOV (Re) Ra ;GET B 
7718 See4e 100002 BEL :BR IF CERR NOT SE 
| 7715 033046 1a? O44S0E y INTR :LET DRIVER PROCESS THE ERROR 
7720 s2200 “3 040005 23: gi! #01,R3 i358 IF nQRIVE_INTR SET YET 
ef 03305 w 
| a=52 032056 sectice INC Ro :SET RKO& INTR INDICATOR 
7723 o00002 48: ar! :RETURN FROM INTERRUPT 
ae 
| 77 eee TT SOMPUTE fh TERM OF THE FORUARD SEEK AVERAGE FORMULA 
t REDTERM - COMPUTE A TERM OF THE FORWARD SEEK AVERAGE FORMULA 
| 7738 5 AND ADD IT TO THE FORWARD SUM IN SUMLOI-SUMHI1-SUMLO2-SUMHI2. 
| 7723 « £EEEEREEESESEEE SESS EE SSESEESSEEERESESSSEEEEESSEREEAEEEESESES ESS 
| 7730 033062 104407 TERM: SA :SAVE RO-RS 
me 4 = MOV £0, Re :GET MEASUREMENT INTO R2-R2 
101 MOV RI:R 
| 7733 033070 005004 cence CLR oon. get ms 
J MOV 
ae Bore saad te SL ToPey BY 
| 77% 100 904737 os2422 JSR Pt. DPIM SRULTEPLY EOEFFICIENT 
i. Sar o2104 060337 002174 ago R32’ SUMHI2 :ADD TO FORWARD SUM 
7738 lio 905502 . ADC 
| 7733 033112 0609237 002172 ADD R>, SUMLO2 
| 7740 033116 605527 603170 aoc Somat 
| 7741 032122 1044910 RESREG ;RESTORE RO-RS 
7742 032124 00207 RTS PC 
| 73 
| ih iyps 
j 7746 pecesenesnanscoreeaeteen ae tar mannan Waiter FORA 
| 7747 : RRVTERM - COMPUTE A TERM OF THE REVERSE AVERAGE FORMU 
7748 :#QND ADD IT TO THE REVERSE SUM IN RET TEMA THT RXTE OCRAKIKG. 
7743 + SREFLSESESESESASLESSSESSSSSELSFASESSAAAASSAREFLESSSLLERELEREFFLLES 
7750 032126 104407 RiTERM: SAVREG ;SAVE RO-RS 
7751 o22130 910002 Mov RO, :GET MEASUREMENT INTO R2-R3 
75 533136 ecto CLR ‘ 
033136 013705 ooss22 MOV SCRACH, RS 3GET COEFFICIENT 
144 apes os2422 2 PEM. DPIM Mott pty RFE ICIENT 
7757 033150 060337 003220 ADD R32; MAXIH2 "ADD TO REVERSE SUM 
775€ 022154 o0s50e ADC 
7/753 033156 060237 997216 ADD R2, MAXIL2 
60 022162 005537 003210 Qi MAXIHL 
| 7761 O33i66 104410 RESREG :RESTORE RO-RS 
7762 023170 ‘000207 PC 


Eee 
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YS. VERIF. 


TIMSEK 


: PART 


MEAS’ D 


MEAS'D TIME T MIN AND MAX 
/_—_— TIME IS IN RO-R1, POINTER 


5 SERSSSEFSSSSSSSASSESFSSSLLAFLLLELLESLSLELSLSSAFLELAFLFLESEAELE LAE SSE 


$ ic T 
#OND RE 
*#TO LO MINE 
iberin: 
a 
BLO 
CMP 
BHIS 
4$; MOV 
MOV 
6$: CMP 
BLO 
BHI 
BLOS 
8S: MOV 
MOV 
108: RT 


RO,2(83) 
6$ 


RO'6(R3) 
10$ 


8g 
Rl. 4(R3) 
o$ 


1 
RO,6(R3) 
Ri, » F0R3) 


ie ir Mt pits TO HI MIN 


SBS 
ef 
“Dn 
w ~~ 


SB DBomn sD 
he 


i Lael 
a ea} 
ww ~~ 


ee 
ITS TO HI MAX 


sii i 
Saal 


[covemmeussecnneepesvecsieente greet cree eter teers ae 
AVG - COMP VERAGES BY 


EGET UTE 
;*#DIVIDING TIME in BY 


Ags. AND REVERSE SEE 
OF MEASUREMENTS (PASSED IN R3 ON ENTRY). 


K TIME A 


Me bacesessonanananamanteunsubesrenezosiiaansanaeanenneensedan 


bttave: 


VREG 


;SAVE RO-RS 
;LO_DIVISOR = MEGSUREMENT COUNT 
:SET DIVIDEND = FORWARD TIME SUM 


;HI_DIVISOR = 0 
s PERE ORI DIVISION 
STORE FORWARD TIME AVG 


;SET DIVIDEND = REVERSE TIME SUM 


;PERFORM DIVISION 
;STORE REVERSE TIME AVG 


;RESTORE RO-RS 
; RETURN 


- LELLERERELELELERRELSERAERREREE EERE EAERAEAERERERAREALERELEREEEEE 
TTL TYPTMS - TYPE RESULTS OF SEEK TIMING MEASUREMENTS 
a a SUBROUTINE TYPES THE MIN,MAX, AND AVG SEEK TIMES 


$9 0146 
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TS OF SEEK TIMING MEASUREMENTS : 


rf 
~~: 


apie0 HC = RR Rh RIF. : PART 
CATE Sg MQHL OTR BEE EM SAO hoe vl 





ie 


7213 r#CIN.D ape Nene ig THE SEE SEEK TIMING ™E 
; N BO aie ARE 
oes te be Eee Tg 7 ing wees 
? MENTS. POINTER TO PING ten 
7823 i Man ME SEAGE "Sst Be IN STE 
7824 ce eecebannenensnacabonenarseensasnmneennmeanbannninannanhaeneel 
03323 TYPTMS: 
~==5 : TYPE FORWARD MEASUREMENTS 
? 033336 104401 011714 TYPE  ,FORW : TYPE “##*FORWARD DIRECTION##«” 
7823 023342 91e70k 003202 MOV @MINIL1,R1 :POINTER TO LO MIN 
| “TE Bess bayer aaese yer PCy TYPMIN sTYEE NIN MEAS"D TIME 
ra ~~] a 
7832 333226 bie7a4 wee MOV seantL, Rl sO OTRTER torn nm 
7833 033362 737 033602 ISR :TYPE MAX MEAS’D TIME 
? pezzee 0 0031 MOV =a ;GET T OF TIME {ABOVE MAK 
oe 1 TYPDS AND 
7836 033374 010337 032402 MOV R3, 4S :SET POINTER TO ae D MAX MESSAGE 
7837 104401 Tee TYPE * OF XXX ABOVE MAX OF XXXxx US * 
7838 we 4§: " 0 pi :SPEC’D MAX MSG POINTER GOES HERE 
7823 O33404 012701 003166 MOV SSUMLO1,R1 SET PC POINTER 70 LO AVG 
| 7880 O33410 004737 033626 ISR PC TYPAYG TIME 
| 741 033424 104401 001315 TYPE. __, SCRLF TYPE “CR AND <LFD 
| 7e48 ; TYPE REVERSE MEASUREMENTS 
7843 033420 104401 011744 TYPE REVR : TYPE “###REVERSE DIRECTION###” 
| 7844 033424 012701 o03212 MOV BMINIL2, Ri :POINTER TO LO MIN 
| 7B4S5 033430 004737 033556 JSR PC. TYPMIN :TYPE MIN MEAS’D TIME 
7246 033434 104401 O01315 TYPE SARLF :TYPE <CR> <LF> 
| 7847 033440 012701 00321é MOV BMAXIL2,R1 - :POINTER TO LO AX 
«748 004737 933602 JSR PC TYP: : TYPE MAX MEAS" p TIME 
748 813746 OO3164 MOV ABYMx2, - (SP) ;GET COUNT OF T NES ABOVE MAX 
| 7850 033454 104405 TYPDS RT AND T 
7251 010337 033464 MOV R3,6S ‘ SEI POINTER ao PEED Na MAX MESSAGE 
7852 104901 TYPE : “ STYPE * OF XXXXX US 
| 7853 633464 00000 6$: .WORD 0 :SPEC’D MA x NEG POINTER GOES HERE 
7854 91270) 002172 Nov BSUMLO RI :3Er POINTER TO LO AVG 
/ 785— 033476 ee 5 refi TYPE SARL TYP nes Ti (LF 
c 000207 RTS PC : RETURN 
| 7855 
| 7860 
786) 5 REERELEREE ERK ERELAEEEE EEE RELA EAA RERARERRELAARER LAER EAR LATERAL ES 
7862 ti CNVTIM - CONVERT SOFTWARE TIMER CYCLES TO TINE 
7863 :*THIS SUBROUTINE MULTIPLIES THE THE CYCLE COUNT IN RY-RS BY THE 
7864 "TIME CONSTANT IN TCONHI-TCONLO, TO OBTA IN TIME ‘* NSEC. THIS 
= 2ees :#15 THEN DIVIDED BY 1000 (DEC) to TOTRIN TIES IN BIGRO-SEC 
| 7BEE :*THIS TIME IS RETURNED IN Re-R3. THE MULTIPL PATTON OVERFLOWS 
— - 7857 :#32 BITS, AN ERROR RETURN IS MADE To THE ADDRESS LISTED AFTER THE 
7868 ;*CALL TO CNVTIN. 
7865 ;#CALL - JSR PC. CNVTIM 
7870 + (ERROR REGAN ADDRESS> 
4 ' “2 i a a 
VTI V NH LTIPLIER = 
| 7873 ee 10 sl 3508 03154 MOV TCONLO: RS 


7874 033514 604737 Os24z2 ISR PCM. sob TE MULTIPLY 


er 
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aed 
oe 


a 


Ronen Erinn wer 


Rt 


sae 


NN 

Ceeenone nae 
> b—* b= b+ & 2 bs Os po ha he 
OCD NOP ol £ lure 


tf 
= 


792 
7358 
ease 





i A SuBSyS. 


10:0 :Q3 


Oiele 


052760 
3154 
1e0e1 


VERIF. 


» PAR MACY LI PAGE 149 
ty verne - TYPE RESULTS pet nthe SeacuREse{ce 
TST RO : MAKE SURE HI 2 WORDS ARE 0 
Ne 4§ :BR IF NOT O 
otk 
4§: MOV a(SP), (SP) , Pero teh RETURN PC 
RT PC 
ts: cL Ry ere HI BITS = 0 
MOV.  #@1000..RS i367 0 Pivisee =, = 1000 (DEC) 
35R PCM. DFID RT 
RDO #2: (SP) FIX ERRORS E RE FuRN PC 
RTS pe SERROR-FREE RETURN 


i peseenustensuussetaseseotecnenesnnenesesonoutenteanesnecsasents 
Met Be - TYPE MIN MEAS’D TIME IN US. POINTER TO LO TIME IS IN Ri 


SON ENTR 
TSEASDOGSoAAHADLESAAAEABOEEDOSASEOEEEEEREOEESEEEEOEEEEEEROEEEES 
Henin: ae ait (SP) ity Maan wien R TO LO TIME 
- a 

J Be’ SacpeeD Gere at i oes 

SR PC’ ds$SUPRS sTYPE J 

TYPE micros : TYPE tis e 

RTS Je 


SSEFESARESLLAFSSLSSSLAFSERSESLELSSALAASERALSERESSESRERASASSSFSLSELALESE 
 ETYPMAX - TYPE MAX MEAS’D TIME IN US. POINTER TO LO TIME IS IN R1 


+ #0N ENTRY 
tek tcile-teh-t ileal ttot-+-elallallaiebaelabel-1t-+-ig-te}-trihaial-iebaebetaebeiaebaeieebeie 
Hemax: iy R ES.) treo NTERT on LO TIME 
ISR Be’ aag0820 GE) POINTE 
JSR PC’ a8SSUPRS : TYPE IT 
TYPE mICROS :TYPE “US “ 
RTS Pc 


$ s FFFLESSLAERASLESLARE RELA FARELAELERATAAFARELEARAAALERATELELLAASESEE 
jATYPEVG - TYPE AVERAGE MEAS'D TIME IN US. POINTER TO LO TIME IS IN Rl 


; #ON ENT 
‘suveneaniavensenensensonsencanentsgeasuansagaocsnsnsseconsasees 

Hpave: TYPE Q TYPE “AVG = 

MOV a (SP) GET POINTER TO LO TIME 

ISR C. ae$D820 :CONVERT TO DEC 

J5R Be " I8SSUPRS :TVe IT 

TYPE Micros :TYPE “us ™ 

RTS Pc 


5p RRRRRREREREEERERE EERE EEE RELA ELAR RARER DEEEE ER AL EA EERE REAR BREE EEE 
;* LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL 


SES 0146 








MO-11 bgREN-C - RKE FeO SuBSYS. VERIF. : MACY11 27(1006) 0S-OCT-76 3 PAGE 150 6 014 
DoReAC-P1l OS-oF#=76 10:63 tyETHS = TYPE RESULTS OF SEEK TIMING MEASUREMENTS a Sees 
7931 oo DEC) WORDS OF THE DATA BUFFER (RWOUF). 
F-5-5-5-tehah-5-Seh-5-4-tahahalahahalahalalahala? shaldialalalah-+-t1}-Sah-4-4eh-$-Sahalalalehalalalalelalebelaelelsieieisiea 
033652 104407 LAOSEC: SAVREG :SAVE RO-RS 
7934 033654 012701 063526 MOV #RWBUF RI GET ADDRESS OF DATA BUF INTO R1 
7935 033660 01902) 28: MOV = RO, (RIS + ;PUT WORD INTO BUFFER 
| 7936 033662 O20127 os4se6 CMP Ri: sRUBUF +512. :SEE IF 256 WORDS WRITTEN YET 
7937 3556 001374 BNE 23° :BR IF NOT DONE YET 
7938 333e 104410 SREG iRES ORE RO-RS 
7939 033672 O00207 RTS PC : RETURN 
7940 
5343 
7343 5 REARALELSLAALA LAL LLASAALSARA LALLA LE LSS LAL ES RASA LELALLLAELA SEALE 
7343 i} 3 TRKCHK - THIS S ROUTINE DOES A WRITE-CHECK OF SECTOR FS ON CYL 
DSS FOR EACH OF RACKS 0 AND 2. THE DATA IS COMPARED TO THE 
| ; aT TRACK RUNBE + 100(0CT) boa" THAT PARTICULAP BLOCK OF DATA WRITTEN. 
794? : £THE PARAMETER BLOCK MUST BE PRE-LOADED WITH THE PROPER PARAMETERS. 
7348 ee mee ert tee re 
sae basece sPecue 9004 TRKCHK: Roy P.SECT(RS) ,-(SP)’ 3s “Tape AND SECTOR PARAMETERS 
rae; Basecs Shesee Sopsoe Moke = PTTREK RED’ Seve 188 “IRRGK FO. 
7352 “LOAD THE DATA Burren WITH THE clesent 1 K NO. 
7353 92370 416505 goons 2s: nove TRCK(RS) ,RO SET TRACK fe NTO RO 
| 7954 le 1 D Sigg RO 100(0CT) TO TRACK NO. 
79&5 933716 004737 033652 JSR pc LODSEC DATA BUF WITH TRACK NO. + 100(OCT) 
| 7956 033722 112765 900131 oo0001 MOVB SWATCH. P.CMNO(RS) :SET WRITE CHECK COMMAND 
pate Gaara foeors | Shosee Yo, PC ADRVCL, DERE DFas TMS WAL TE CH 
| 796 533234 {S35E2 cate ooo00s CMP #3,P. TREK CRS) saree DONE ITH ALL TRACKS 
| 7960 033746 001357 BNE 23° :BR IF NOT DONE Y 
| 79861 033750. o1ebbs ooooo4 MOV (SP)+,P.SECT(RS) :RESTORE TRACK AND SECTOR PARAMETERS 
| 7962 63 10441 RESREG sRESTORE RO-RS 
| 7a 033756 600207 RTS PC RETURN 
| 7OEs 
| 7666 
] 7367 : ea TE NERATE SIXTEEN PSEUDORANDOM NUMBERS AND LOAD THEM 
| 7368 {ko GENERATE SIXTEEN PSEUDO-RANDOM NUMBERS AND LOAD THEM 
7965 | tSINTO. THE PATTERN 14 TABLE. 
7370 14h —+-+ hi -+-+v-—‘nt ‘el ‘aaa 
| 7971 033760 104407 _ {boP14: SAVREG ; SAVE 
| 7972 033762 012701 oooo10 MOV #8. Ri SINIT LOOP COUNTER TO 8. 
| 7973 033766 012700 007076 MOV #PATI4, RO :GET ADDRESS OF PATTERN 14 yBUEEER 
7374 «933772 004737 052036 4S: JSR PC, SR GENERATE 2 15-BIT RANDOM NUMBERS 
| 7875 033776 0132720 052136 MOV SLONUM,(RO)+ | PUT ONE NUMBER INTO PATTERN 
| 7976 O34002 013720 052134 MOV SHINUM;(RO)+ § :PUT OTHER NO. INTO PATTERN 
| 7977 034006 005301 DEC RI ;SEE IF 16 WORDS LOADED YET 
| 7978 034010 001370 BNE ug BR IF NOT YET 
| 7979 O34012 104410 RESREG RESTORE RO-RS 
7380 034014 600207 RTS PC : RETURN 
— - 7382 
| 7983 
| 73984  SEELELEEAEAA SLA LARA SHAE ELSA RFA SLA LE RAARAAARARERAEASARESLERARE 
| 7966 ‘ABTTL FINADR - COMPUTE FINAL PACK ADDRESS 
(798 THIS SUBROUTINE IS USED AFTER A DATA TRANSFER HAS COMPLETED, TO 





ee 


MD-11-DZREM-C 
DZREMC.PLI 

7987 

7989 

7989 

7990 

7931 

7993 

7994 O34016 
7995 o4ce0 
oae5 Saape 
bass Saunas 
8600 O34040 
8001 O34046 
8002 O340S2 
8003 O34055 
8004 034062 
8005 O34066 
8006 934070 
8007 O34074 
8908 O34076 
8008 034100 
B010 O3410e 
8011 O34106 
8012 O34110 
8513 034114 
8914 O34l16 
B15 O34le2 
8016 O341e6 
8017 O3s413e 
8018 034136 
8919 o34140 
8020 934144 
8021 034150 
8025 O34152 
8023 O34156 
B04 O34lé2 
B025 O34] 
B06 034170 
8027 O34] 
026 

029 

8030 

2031 

2032 

8023 

6034 

8025 

036 

8037 

038 

8025 

B54 

£04 


1 
B042 034174 


104407 


005570 


Bosse 
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PART 1 MACY11 27( 1006)  eatichs 10:13 PAGE 151 SEG 


FINADR - bonpuTE FINAL PACK ADDRESS 


HSuORD NO, AY Te POINT OF INTEREST. Ie passeD IN LASTAC. fits. 18 uses uITH 
:*P. Rr anne ) TO COMPUTE 


: #PACK io i *RETUR . tN Ps YL, FINTRK * FIN gp ONO 
se THE SUBROUTINE ores I nat bese ihe BACK ADDRESS OF A SOFTWARE 
we wl aah, SNR TR Hel an OST WACO LITE ETD = 
RNADR: SAVREG ; SAVE _RO-RS 
MOV LASTWC, -(SP) TORE WORD COUN 
NEG (SP) :MAKE IT BOSS HVE 
18$: CLR -(SP) :MAKE ROOM ON STACK 
MOVB 3(5P),(SP) *STORE NO. OF SECTORS TRANSFERRED 
CLR BSP) :CLEAR LOCATION ON STACK 
MOVB B-SECT(RS) ,2(SP) “STORE STARTING SECTOR 
ADD 2(5P), (SP) ;DETERMINE FINAL SECTOR ADDRESS 
CLR 2(5P)’ :CLEAR NO. OF TRACKS TRANSFERRED 
MOV #22. RO :SET FOR 22 SECTORS 
TST8 FORMAT :DETERMINE THE FORMAT 
195 ;BR_TF S 
MOV #20. ,RO :SET FOR 20 SECTORS 
198: chp RO, (SP) iCHECK FOR CTOR OVERFLOW 
Sua RO, (SP) t OERRENENT SECTOR COUNT BY 20 OR 22 
INC 2c SP) : INCREMENT TRACKS T ANSFERRED 
BR 193 :CHECK FOR SECT SUERPL Ow 
208: MOVE (SP)+,FINSEC STORE FINAL Croton 
CLR -(SP) :MAKE ROOM FOR TRACKS TRANSFERRED 
MOVB P.TRCK(RS),(SP) :STORE STARTING TRACK 
ADD 2(SP), (SP) :DETERMINE FINAL TRACK ADDRESS 
CLR ec SP) :CLEAR FINAL CY 
21$: CMPB #3, (SP) :CHECK FOR TRACK OVERFLOW 
BHI 22g *NO, CHECK FINAL TRACK 
SUB #3, (SP) :DECREMENT TRACK COUNT BY 3 
INC 2( SP) :INCR CYL COUNT 
BR 21 : CHECK FOR TRACK OVERFLOW 
22:  MOVB (SP)4+,FINTRK  :STORE FINAL TRACK 
ADD P.CYLAC(RS), (SP) ; CALCULA TE FINAL CYLINDER 
MOV (SP) FINCYL TORE FINAL CYLINDER 
TST (Sp)4 CLEAN OFF brag K 
RESREG :RESTORE RO-RS 
TS PC : RETUR 


set TOOBUF = LOAD IME READ/URITE DATA BUFFER 
‘aBTTL LODBUF - LOAD THE READ/WRITE DATA BUFFER 
vats SUBROUTINE: LOADS THE READ/WRITE DATA BUFFER (POINTED To BY 
A AND PMA+2) WITH THE APPROPRIATE REPEATING DATA PATT F 
tS PARAMETER F ATRN = 0 ON ENTRY, THE DATA WHICH IS LOADED 1§ "COMPRISED 
; #0F ALL THE PATTERNS 00-15 (QUICK VERIFY. DEFAULT DATA TEST 
#IF PATRN IS NOT 0 DS IN THE WORD WOSXFR 
git fae PATTERN N IDENTIFIED. BY THE NO. OF THE BIT SET IN RI ON 
peor earcersr erica ieriet herent ne nenennentenn 


LODBUF: SAVREG ;SAVE RO-RS 


0156 





et - RKELI/RKOE sugsys. VERIF. 
OZREMC.P11 05-OCT-76 10:03 


8043 034176 013702 905562 


COSS34 
SB408 
063526 


000001 


172354 
17757e 


172354 


000001 177572 


042737 
000410 


PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE 152 
LODBUF - LOAD THE READ/WRITE DATA BUFFER 
Wet rn i F QUICK Y RIE ATA TEST 
oie ATO R ts oe ene sae aa 
MOV #256. iy fa spl ag OUNT 
MOV SRWBUF RI RF AODRES 
SR 30$ ‘BROCE 
3$: CLR RO INIT PATTERN NUMBER 
4g: BIT s8IT0,R1 :SEE IF THIS BIT IS SET 
BNE &$ :BR IF THIS BIT SET 
INC RO ; INCRE NT PATTERN NO. 
ASR Ri : SHIF 0_EXAMINE NEXT BIT 
aR 4§ -BR TO CHEEK K NEXT 
6S: ASL RO :MULTIPLY PATTERN NO. BY 32(DEC) 
AsL RO 
per OR 
Ret OR 
AD #PATOO,RO ;GET ADDRESS OF DESIRED PATTERN 
MOV #16. .-(SP) :SET PATT RN WORD COU 
MOV PMA RI :SET BUFF R ADDRESS 
TST SKTII :SEE IF MEM MGT PRESENT 
BPL 30$ °BR IF NOT PRESENT 
:BUFFER LOAD LOOP FOR NEM MGT STARTS HERE 
MOV Say PAR D#KIPARG ;SET UP WORKING PAR 
BIS 0 das SRO : TURN ON MEMORY MANAGEMENT 
BIC reoobD O,Ri tFORCE RELOCATION THRU KIPARE 
BIS #140000, R1 
223: MOV R ;GET_A COPY OF PATTERN ADDRESS 
MOV (SP) RY INIT PRTTERN WORD COUN 
24S: MOV (R3)4+, (R1)+ :LOAD A DATA WORD INTO aUErER 
BIT #81T13,R1 SEE IF OVERFLOW TO NEXT PAGE 
BEQ 2 NO OVERFLOW 
app #200 J#KIPARS INC MENT PAR BY 4K FOR NEW PAGE 
BIC 1T13,R1 :SET PAGE = 
26$: DEC ; DECREMENT “WORD COUNTER 
BEQ :BR IF ALL DONE 
DEC RY ; DECRENENT PATTERN WORD COUNT 
BN 24g :BR IF NOT UNE MITE TRUTERN YET 
BR 223 :BR TO REPEAT THE PATTERN 
28s: BIC #8170, , a8SRO sDISARLE, HERORY ANAGERENT 
-BUFFER LOAD LOOP FOR NO MEM MGT" STARTS HERE 
30$: MOV RO RS T A COPY OF PATTERN ADDRESS 
MOV (SP) INIT PRT TERN WORD COLIN 
34S: MOV (Rays CRI )+ “LOAD A DATA WORD INTO SUFFER 
DEC R2 sDECRENENT WORD COUNTER 
BEG 44S :BR IF ALL DONE 
DEC RY ;DECRENENT PATTERN WORD COUNT 
BNE 345 :BR IF NOT DONE WITH PATTERN YET 
BR 30% :BR TO REPEAT THE PATTERN 
w4g: TST (SP )+ :POP THE STACK 
RESREG ;RESTORE RO-RS 
5 PC RETURN 
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013737 172354 

000432 
4616 032701 O20000 

001405 


14 
C346e4 062737 000200 
034632 O4e701 Oe0000 
0346 005302 


BSE SEA LGSES BONER REED 
8 
di 
e 
oO 
S 


_(1(#;#}£=£ ]}=°== °° 222... en nn ee emma 


coco 00 0000 00.0 00. 0000 000000 (0:00: 00 (0000 co. cc. 0. cc. co. cc. 0. Cc. co. 0. co.cc. 0... cc. cc ct). cc ec. co Oc co oD 


bb ba b= he Bs be be bt be he he be bb he be Be be ee be he 


unonaonn 
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O3464e 000137 035306 


062045 
063420 


172354 
177572 


001216 


172354 


Jie 


VERIF. : PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE 1S3 
LODBUF - LOAD THE READ/WRITE DATA BUFFER 


ipepeneneseesenee err ener tan ene 
TTL _CMPBUF A 


OFTWARE COMPARE DA 
ES SURPLU'ESoB UT SUAS ETS De rpB Fo 
A IS COMPRISED OF ALL THE PATTERNS 


ate eaeH ee Fi ir Bera pa ee ret IN Rl ON ENTRY IDENTIFIES THE 
; REPEATING Bava nay TO COMPARE AG 


ieuenounensngnseaneansosneassesnes enaessniOee4enenesunssansenss 
AMPBUF: SAVREG ;SAVE RO-RS 
aOve #40,,0H701+38. RESTORE ERROR MSG PARAMS 
MOV 87, DF 2S+ 
MOV WOSXFR, Re :SET NO. OF WORDS 
CLR SCRACH :CLEAR COMPARE ERROR COUNT 
ISR PC REPSUP ; STORE PREV CMND FOR POSS. PRINT 
TST PATRN “SEE IF THIS IS QUICK VERIFY DEFAULT DATA TEST 
BNE 3$ :BR IF NOT 
MOV #PATOO,RO :GET DATA PATTERN STARTING ADDR 
MOV #256. ,-(SP) :SET PATTERN WORD COUNT 
MOV SRWBUF RI :SET BUFFER ADDRESS 
Be 30S : PR 
3$: CLR RO INIT PATTERN NO. 
4g: BIT s81T0,R1 : SEE IF THIS BIT IS SET 
BNE &$ :BR IF THIS BIT IS SET 
INC RO ! INCREMENT PATTERN NUMBER 
ASR Ri :SHIFT TO EXAMINE NEXT BIT 
BR 4§ :BR TO CHECK NEXT BIT 
6S: ASL RO :MULTIPLY BATT RN NO. BY 32(DEC) 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
ap5 aPaTOO RO :GET ADDRESS OF DESIRED PATTERN 
MOV -{SP) :PATTERN WORD COUN 
MOV Hs ARI ;SET BUFFER AD we 
TST SKT11 SEE IF NEN MGT PRESENT 
BPL 30$ *BR IF NOT PRESENT 
;COMPARE LOOP FOR MEM MGT STARTS’ HER 
MOV SAVPAR, O#KIPARS ;SET UP WORKING PAR 
BIS #BITO seeRG ; TURN ON MEM MGT 
BIC #160000,R1 :FORCE RELOCATION THRU KIPARS 
225 nov He eae Y OF PATT RN BDORESS 
MOV iy RY Rite a TERN WORD 
24s: oMP (R3)+, (R1)+ COMPARE DATA WORD 7 UN ATTERN WORD 
BEQ 25$ iF IF NO ERROR 
MOV DeKIPARG,SREGIG ;SET PAR FOR PRINTOUT 
BR 353 HANDL R 
25$: BIT #81T13,R1 SEE IF OVERFLOW TO NEXT PAGE 
BEQ 26$ :BR IF NO OVERFLOW 
ADD #200, 98KIPAR& ;INCR PAR BY 4K FOR NEW PAGE 
BIC #81T13,R1 ;SET PAGE = 6 AGAIN 
26$: DEC Re :DECREMENT WORD COUNTER 
BNE 27g ‘BR IF NOT ALL DONE YET 
IMP 54s *ALL DONE - GET OUT 
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063420 


001202 
005570 


005474 
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144066 
005532 
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OOSS65 
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001174 
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O0lele 
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;DECREMENT PATTERN WORD COUNT 
BR IF NOT DONE WITH Porter YET 
BR TO REPEAT THE PATTERN 


;GET Y_OF PATTERN ADDRESS 
INIT “PATTERN WORD COUNT 
;COMPARE DATA WORD TO PATTERN WORD 

:BR iF COMPARE ERROR 

;JUMP_IF edly COMPARES OK 

;ADJUST DATA HEADER FOR MSG 

;ADJUST ERROR DATA WORD COUNT 


;GET WORD NO. 


;GET 2°S COMP OF WORD NO. 
:COMPUTE ACTUAL PACK ADRS 
SA VE RO-RS 


;GET CYL 
:GET ton 


:GET SECTOR 
;SEE IF THIS SECTOR LISTED BAD 
RESTORE RO-RS 


;BR_ IF rt DON’T REPORT ERROR 
:CHECK THE ERROR COUNT 
:BR IF THIS IS NOT FIRST ERROR 


:SEE_IF UNTBUS MAP PRESENT 


:BR_IF N 
:GET CURRENT MAP REG 0 
;DATA MISCOMPARE (11/70) 


; TYPE HEADING FOR ERROR MSG 
INIT CYL NO. 


; INCREMENT THE ERROR COUNT 
E_IF ALL ERRORS SHOULD BE REPORTED 
‘BR TQ_REPORT ALL ERRORS 
ea F_10(DEC) ERRORS ver 

IF ERROR LIMIT EXCEEDED 
EE E IF wee ENT CYL 


ere IF DIFFERENT TRACK 

:BR IF _YES 

SEE IF DIFFERENT SECTOR 

:BR IF SAME PACK ADDRESS 

:SET NEW PACK ADRS FOR PRINTOUT 
; TYPE a — ADDRESS 


WOR 
:GET GOOD Nolte 


PART MACYL1 27‘ 1006) 
eMPRUF - be TWARE COMPARE CATA 
278:  O€C 
BNE Bus 
BR 223 
“COMPARE LOOP FOR NO MEM MGT stabs HERE 
30$: MOV 
MOV (SP) RY 
34S: C (R3)+, (R1)+ 
BNE 21$ 
IMP 405 
318: CLRB  0H701+38. 
MOV #5, DF 25+2 
COMMON COMPARE ERROR HANDLER 
MOV $REG1O 
SUB WOSXFR, SREGIO 
MOV $REGIO. LASTWC 
ISR PC, FINADR 
SAVREG 
OV FINCYL,RO 
MOVE  FINTRK-R1 
MOVB FIN SEC’ Re 
JSR C, BDSRCK 
RESREG 
grt #BADSEC , RECODE 
TS SCRACH 
BNE 36$ 
TSTB -UBMPRS 
BEQ 46S 
MOV CRMPHO , SREGS 
MOV CRMPLO; SREGE 
ERROR 11g 
RROR ll 
5R 48g 
46S: ERROR 34 
4gS: MOV #-1, SREGS 
CLR SREGE 
éLR SREG 
36S: INC SCRA 
BIT iid Mo cuR 
BNE 38 
CMP #10. ,SCRACH 
BLT 4g 
38%: CMP SREGS, FINCYL 
BNE 4 
CMPB ss SREG&, FINTRK 
BNE 42 
CMPB SREG?, FINSEC 
BEQ 44g 
42S: MOV FINCYL, SREGS 
MOVE FINTRK,SREG 
MOVE FINSEC’ SREG7 
ERROR 115 
44S: NEG ih EG10 
MOV etka), SREGL1 
MOV -2(R1)'SREG1O 
MOV SREG1O, SREGLY 


;GET BAD DAT 
; COMPUTE PHYSICAL ADDRESS 


SEQ 0153 
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00S 
104410 
000207 


026527 


012746 


005534 


055134 


O3461& 


O34ES4 
034660 
055134 
000001 


000862 
003166 
Bp 3328 
0006 

000002 
003115 


024000 


O0lele 
001210 
001214 
143674 


177572 


0006e5 


ooc00e 
oo000s 


5 Ay me ~ RK611/RKO6 SUBSYS. VERIF. : PART MACY11 poe) OS-OCT-76 10:13 PAGE iss 
DZREMC . P 05-OCT-76 10:03 


CMPBUF - OFTWARE COMPARE DA 


CLR $REGI3 
ROL $REG1Y 


BBS. 


ADD ate SsREG13 
MOV R1, $REGIS :GET VIRT. ADRS FOR PRINTOUT 
SUB #2. $REGIS 
ERROR 63° BAD DATA MEM. ADRS. 
BIT #8IT6, ISWR ieee iF Just i RROR SHOULD BE REPORTED 
NE 54g :BR IF JUST 1 ERROR SHOULD BE REPORTED 
sos: TST PATRN :SEE IF DEFAULT DATA TEST 
BEQ 40S :BR IF Yi 
TST SKT11 i SEE IF bee NOT PRESENT 
BPL 40S 
IMP 25g 6 TANDLE AER eT 
4O0$: DEC Re :DECREMENT WORD COUNTER 
BEG Sus :BR IF ALL DONE 
DEC Ry :DECREMENT PATTERN WORD COUNT 
BNE 53$ ?BR IF NOT DONE WITH PATTERN YET 
IMP 303 : JUMP TO REPEAT THE PATTERN 
S3$: IMP 345 
54g: TST $KT11 :SEE IF Tete NT PRESENT 
BPL 6$ :BR IF No 
BIC #BIT0,a#SRO ; DISABLE 
Sts: TST (SP)+ “POP THE orACK 
RESREG RESTORE RO-RS 
RTS PC : RETURN 


5 5 RRRRAE RARE L ELA L LER LEA ERALALAE LAE ER ELA EERE LELLLERELEREEELEF EL 
:* CHKLIM - CHECK CURRENT DATA TRANSFER LIMITS 
;*THIS SUBROUTINE DETERMINES IF THE NEXT DATA TRANSFER SHOULD BE 


;*ALLOWED WITH THE CURRENT PACK ADDRESS AND WOR 

;*TRANSFER WOULD CAUSE OVERFLOW BE C x i, 

;#WORD COUNT IN P.WC(RS) MUST BE SC DOWN TO A VALID’ NUMBER. 
;#IF NO POSSIBLE TRANSFER CAN BE ae RETURN IS MADE TO 


; XADDRESS FOLLOWING THE om an CHK 
# CALL ll 


KLIM 
TRANSFER" RETURN ADDRESS> 
ss steaieeiemaeteitn shat teete Etaath kets ok tok e immeaiiemeieiniineaddl 


setae :SAVE RO-R 
CHP P. BgvLNcRS), , #625 SEE IF pet OLLd CHECK ADDR. LIMITS YET 
SAVREG iB ve ORDERS 
CLR SUMLO 
CLR SUH 
CMP #532,P.CYLN(RS) ;SEE IF ON LAST CYL 
BN F NOT 


E ; 
CMPB #e,P.TRCK(RS) SEE IF ON TRACK 2, CyL 632 
BEQ 36$ R IF CAN'T DO TRANSFER 

QS: TSTB  - FORMAT ; DETERMINE THE FORM 


BEQ F 22(DEC) SECTORS 
;STORE CONSTANTS FOR 20(DEC) sector RS 
MOV #10240.,-(SP) ;NO. OF WORDS ON 2 TRACKS 





» Eee 
' 


404 
nie 


03 
035536 


05-OCT-76 


biErHe 


000410 


pacts 
2000 
003024 


OS2422 
003166 
000010 
000631 
000002 


OS2422 
003166 


003170 
000006 


000632 


000012 


ooc0te 


000002 





MO- Sy - RKE11/RKO6 SUBSYS. VERIF. : PART 
DZREMC.F 11 10:03 


MACY11 gc) OS-OCT-76 10:13 PAGE 156 


omPRUF - SOFTWARE COMPARE DATA 


MOV #15360. +7 6SP) :NO. OF WORDS PER CYL 
MOV #5120..-(SP) | :NO. OF WORDS PER TRACK 
MOV #20. “=tsp} "NO. OF SECTORS 
“STORE CONSTANTS Foe 22(DEC) SECTORS 
10S: ~ MOV 11264.,-(SP)  ;NO. OF WORDS ON 2 TRACKS 
MOV #16896. "=(5P) 3NO. OF WORDS PER CYL 
MOV #5632. ={SP) =NO. OF WORDS PER TRACK 
MOV SP) “NO. T 
“COMPUTE NO. OF UDROs LEFT ON THIS TRACK 
1o$: MOV SP)+ 0. OF SECTORS 
MOVB Pocect (RS) Re :GET CURRENT SECTOR NO. 
S R2,R3 F SECTO RS LEF 
CL Pi ND. WOS IN THESE SECTORS 
MOV #256. ,RS 
CLR Ra 
ISR 
MOV RS, Si nO sSTORE THIS NO. 
MOV ts j RESTORE ARAM BLK ADDR 
COMPUTE NO. OF ugh Ber ON THIS cL NDER 
MOY LIMIT = 2 
CMP #632-P.CYLN(RS) : ‘fe NF ON CYL 632 
BNE 14$ :BR IF NOT 
DEC R3 :DECREMENT TRACK LIMIT TO 1 FOR CYL 632 
14$:  MOVB  P.TRCK(RS),R2 :GET CURRENT TRACK NO. 
SUB R2,R3 ;GET NO. OF TRACKS LEFT 
CLR Re :GET NO. OF WORDS IN THESE TRACKS 
MOV (SP)+,.R5 *NO. OF WOS PER TRACK 
ISR PC,M.OPIM 
ADD R3 SUMLOL :00 WORDS TO TOTAL 
MOV 10(SP) TORE PARAM BLK ADR 
COMPUTE NO. OF WORDS af? WHOLE cHETNoeRs REMAINING 5 
MOV #631,R3 cy Uf MIT =631 
Sup P-CYLNERS) ,R3 GE NO. OF HOLE CYLS LEFT 
CLR 
1e$: CLR Re 
MOV (SP )+ RS GET NO. OF WOS PER CYL 
JSR mM. OPIM :COMPUTE NO. OF WOS IN THESE WHOLE CYLS 
R00 CUAL OL. R3 ADD THESE is TO TOTAL 
ADD SUMHI1,R2 
MOV &(SP),RS5 {RESTORE PARAM BLK ADDR 
;ADD THE NO. OF WOS ON TRACKS 0,1 
CMP #632,P.CYLN(RS) ; eee. iF CYL = 632 
BNE 18$ :BR IF NOT 632 
TST (SP)+ :POP STACK 
BR 205 
188: R00 (SP)+,R3 sADD WOS ON TRKS'O,1, CYL 632 
“GET DESIRED WORD COUNT 
20$: CLR RO sWORD COUNT HI SITS 
NOY B WC(RS), JRL :GET THE DESIRED SRO COUNT 
BNE 22$ ;BR IF WORD CouNT NOT 65,536(DEC) 
INC RO :SET HI WORD COUNT = 1 


SEG O1S5 





> 
a a SS 


Pll 


83eS 035640 


e357 See 
O3S646 


035650 
8331 0356Se 
8332 035654 
8334 035660 
8335 035662 

025665 
8337 035670 


8338 035674 
8339 035676 


05-0CT-76 10:03 


c0001e 


o0000e 
000000 


000001 
005522 
003106 
000003 


013660 
003124 


00110e 
000032 
015300 


003110 


oosS22 


003036 
000001 


oosSee 


MO-11-DZREMN-C - RKE11/RKOG SUBSYS. VERIF. : PART MACY11 27(1006) OS-OCT-76 10:13 PAGE 157 
DZREMC MPARE DATA 


éMPBUF ° SOFTWARE CO 


;SUBTRACT WORD COUNT FROM NO. OF WORDS LEFT TO DETERMINE IF OVERFLOW. 
OF WORDS LEFT IS IN Re-R3 WORD COUNT IS IN R0-R1. 


bog. SUB R1,RS sLO PARTS 
Sec Re 
SUB RO, Re - PARTS 
BPL 30 *BR IF WORD COUNT NOT > NO. of WOS LEFT 
:SCALE DOWN WORD COUNT TO AVOID OVERFLOW Re erencT THE EXCES 
ROD Re, RI :GET NEW WORD COUNT IN Ri 
hoa MOV R1,P.WCCRS) ;SET NEW WORD COUNT IN PARAM BLOCK 
30:  RESREG sRESTORE RO-RS 
345: BOD 82, (SP) iE TR NORMAL RETURN PC 
26$: MOV a(SP), (SP) FIX “NO TRANSFER” RETURN PC 
RESREG !RESTORE RO-RS 
RTS PC : RETURN 


. UBB HEHEHE HEHEHE HEHEHE EERE HEISE HES HEHEHE ae 
tk CTLOUT - THIS SUBROUTINE CHECKS FOR (tC) OR (¢Z) TTY INPUT. 
;#IF (10) WAS TYPED, THE SUBROUTI : 

; #hIAS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER CASE, 
A RESET TastRucTION. Is. seXECUT ED, AND THE STACK IS RE-INIT- 
:¥IALIZED. THERE ! NPUT, OR INPUT OTHER THAN (tC) OR (t2Z), 
: #NO BET TON. fs TAKEN. 

'* CALL - JSR — PC,CTLOUT 
j# OR - CKEXIT 

© KHLSLFLA AKA EEE REA EAEH~ RELA KE FKASE SELES E ELSES AERA LA ERAFRKEFEEEE 
AtLout: CMP aL TSTING ;SEE IF CURRENT TLY RUNNING TESTS 


1 :BR IF NOT RUNN 
TST INTCHR ‘SEE IF ANY TTY 
BEQ 10$ :BR IF NO INPUT 
STB NOELAG ; SEE IF DEFAULT MODE RUN 
CMPB #003, INTCHR SEE IF. (#C) TYPED 
BNE 4 -BR IF NOT (1C) 
MOV #DRVTST, RO SET RETURN ADDR = DRVTST 
23: STB XOVLAD BEE IF XXDP CURRENTLY OVERLAID 
JSR PC, GETXDP ;REST ORE SAVED XXDP, IF NECESSARY 
6S: RESET “RESET ALL DEV 
CLR INTCHR ‘CLEAR TTY CHAR BUFFER WORD 
CLR STIMES :CLEAR THE ITER. COUN NT 
CLRB = XDPSVD :CLEAR THE XXDP SAVED F 
Hoy sERRHOL 8. .ABNL RESTORE ERROR HANDLER. LOGRESS 
MOVB #RECAL’P.CMND(RS} <SET RECAL COMMAND 
JSR Pc, ORVCAL :D0 CLEANUP RECHL IBRATE 
CLR STSTNM :CLEAR THE TEST NO. 
_ IMP JRO :EXIT FROM TESTS 
4$: CHP #032, INTCHR :SEE IF (tZ) TYPED 


;BR N ) 
MOV #INPUTP,RO ;SET RETURN ADDR = INPUTP 
2s ; TAKE EXIT 


SES C156 

































ee 





| MO-11-D2REM-C = RKGI ROE SUBSYS. VERIF. : PART | MACYL] 27(1006) OS-OCT-76 10:13 PAGE 188 SES 0157 
D2REMC.F11 OS-0CT-7 10:63 tMPBUF - i. FTWARE CO bata : 
£373 122737 000003 OOSS22 128: CMPB 8003, INTCHR -SEE IF (9C) TYPED 

| 8380 O3604— 001007 BNE 73 :BR IF NOT 
8381 36050 104401 O10 TYPE  ,HLTROD : TYPE “MALT REQUESTED” 

| O54 10440 organ TYPE CNTRDY :TYPE “PRESS CONT WHEN ROY" 

012% 343364 MOV HL TPRG, RO ;SET_HALT $s 
4 - 2 2$ TAKE EXIT 
S385 O36066 122737 O0000T oss22 7s: CMPB. =—s«wg' 07, INTCHR ‘SEE IF (9G) TYPED 
e288 036074 001002 | 3 :BR IF NOT iG) = 
Esse Scio fhuris Seeaae es: jen PET BREPRS alae ler 
os fot : 2 we’ 
ee? sete 500257 108: Afs pe iE ToRR 

| 539) 

i £333 ree tte a i fen OF GERnETT Ten ETD Olan an Pe 
e255 : bURTSEC - WRITE A BLOCK OF 4OO(OCT) WORDS CYTO DISK ant PERE SRM 
g295 :#A WRITE CHECK. PARAMETER BLOCK MUST BE PRE-LOADED WITH PACK 
Be i sADRESS.. DSTA WORD TE PASSED IN R3 ON ENTRY RWEUF IS THE BUFFER 

| s SSSESSSSSSFESSLSFLAAFSSESSSESSSSLSRESSSSSLFLSSESSLSLLSSSLLELLSSLRSS 

| 8399 036110 104407 lATsec: SavREs ;SAVE RO-RS 

ES sLOAD THE R/W BUFFER WITH DATA 

| oi lle 912790 063526 Rov aPHEUE | RO :BUFFER ADDRESS 

| babs eeige gies55 + yo BB. on a UPPER oro 

ee Sr 154 1 not COUNTER 

$805 036126 001375 ate Be i 'BR IF NOT DONE YET 

6 120 Cle76S 063526 900010 MOV . Pa eS -SET BUS ADDRESS 

138 0128765 177400 000012 are 1 nara 8-400,P.WC(RS) ;SET WORD COUNT 
E tf O36144 112765 000123 000001 MOVE - SWRDATA.P -CANDCRS) -SET WRITE COMMAND 

Biz Oselse Oi7a7 O37ébe 188 VOAL WRITE THE DATA 

le “PERFORM WRITE CHECK 

/ 413 O36156 112765 900131 ooo00: és: Move BURT CHG, P. CHD (RS) -SET WRITE CHECK COMMAND 

B14 O3€164 004737 O376Ee2 ISR DRVCAL PERFORM WRITE CHECK 

| @415 036170 i04i0 RESREG RESTORE RO-RS 

B48 036172 00207 RTS PC : RETURN 

 *BE 

; —_ 

S420 ak a Geant Gh tr Gan tae ae aL 
| Bue} : EINCRMA - INCREMENT MA BY WORD COUNT IN P.WC(R 

B4ee2 nh Oy th he Ro Fy ap Edi hy Ly RCT esa 

| B43 026174 104407 RMA: SAVREG ;SAVE RO-RS 
8424 036176 O0S001 CLR Rl 
8425 036200 O16500 oootle MOV P_WC(RS) RO :GET WORD COUNT 
S426 036204 001002 BNE ug -BR IF NOT 65,S536(DEC) 
6427 036206 0520! INC R} :SET HI BIT 
G426 036219 900401 BR 6$ : CONTINUE 
B45 O362l2 oos4o0 4$: NEG RO :GET TRUE WORD COUN 

«8430 036215 popes 6S: CLC ‘DOUBLE THE WORD SOUNT TO GET BYTES 
eae 026216 O06] ROL RO 

32 20 606101 ROL Ri 

/ 6433 060037 oos74e2 ADD RO, MA :ADD IT TO COMPUTE NEW MA 

6435 O3t2ce 005627 O0&744 ADC MA+2 








LT LT I 


| 13 


| SO-11-D2REN-C ~ RKGLI/RKOG SUBSYS. VERIF. : PART | MACY1] 27(1006) OS-OCT-76 10:13 PAGE 169 
| DEREMC.P11 © ~OS-0CT=7— 10:83 ember - dort WARE COMPARE CATA 
O26232 060137 oOsTH4 ADD RL, MAs2 


ta dae 


PEELE 


BB GER 
i 
Me 
« 
al 


| O65 
S44) + SSSSSSSSSSSSRSRSSESSSSSSSSSSSSSSLSSSSESSSSESSSSSSSSSSSSSSESSSSSHE 
S442 IEREDESF - READ FACTORY BSF INTO BSFACT, AND READ SOFTWARE OSF 
5443  #INTO BSSOFT. 
| — A eas aan as ghar RE 
ES Seeeis 009737 927209 ISR Bc INITSS, : INIT THE $.5. seiaaal 
Base Bepecs is EE lel oo0oo She CESPAATS comp crds ofS BE AG Bara COMMAND 
2448 036260 012765 000632 00002 MOV s632,P.¢YLN(RS) ; t Sak § 
ete Bapese 112755 333508 600005 MOVE  82.P:TRCK(RS) :SET K = 
ad o S60012 OV 10. Rg :SET FACTORY SSF SECTOR LIMIT 
Sues Saeany Abiaes aos .8R IF 22 SECTORS 
| ess4 536206 105265 900004 Nee F .SECT(RS) :SET STARTING FACTORY BSF SECTOR NO. 
Euee Baeeis 1 177400 o00012 6S: MOV #-400,P.WC(RS) ;SET WORD COUNT FOR 1 SECTOR 
8457 026322 012765 Ooxe22 000010 MOV eeSFatT.P.BALO(RS) ;SET BA FOR FReTORY SSF 
S458 036230 012737 036504 003036 es: MOV 880SCHD‘A.ABNL ;SET ERROR HANDLER FOR BSF READ 
S459 936336 195037 00313: CLRB 8s WCEFLG ; int THe ERROR FLAG 
R460 036342 737 PC DRYCAL READ Y BSF 
S461 O36346 105737 603131 TS’B 2s WEF SEE I 
B42 036352 001413 BEQ ics :BR IF NOT 
036354 62765 o00002 sD0004 ADD SECT(RS) :CHECK NEXT SECTOR 
S464 036362 126503 900004 CMPB sar etiRe, R32  :SEE IF LIMIT. EXCEEDED YET 
© 036366 951260 BNE og :BR IF NOT YET 
036370 O04 041074 108: JSR PC. REPSUP ; GRTHER STATUS FOR PRINTOUT 
«lee Beeee ABIES ouasey amon 198 = Nf PROSE 
T- o 
Esce Saeace Rogsee Bosses 000019 128: #§ MOV SF xo “SET BA OR SOFTHARE RECORD 
8470 416 110355 900004 MOVE P.SECT( RS) 2 + STARTING SECTOR NO. 
8471 414 012703 6000c¢ MOV Py :SET 22 SECTOR LIM 
B47 420 105737 OO3115 TSTB FoR ;SEE IF ee SECTOR FORMAT 
8473 O3e424 601402 BEQ :BR IF YE 
8474 O36426¢ 012703 o00023 MOV 8. R2 -SET 20 SECTOR LIMIT 
75 036432 012737 036504 00302 148: MOV #B0SCHD,A.ABNL ;SET ERROR HENOLER FOR BSF READ 
76 36440 105 003131 CLRB ss WCEFLLG INIT THE ERROR FLAG 
8477 026444 004 037662 ISR PC DRYCAL :READ THE SOFT 
B478 036450 105737 00313! 75TB 3430s WCE FFLG :SEE IF ANY ERRORS 
8475 036454 001407 BEQ 16$ BR IF NOT 
G420 026456 062765 o00002 OD0004 ADD 82,P.SECT(RS) }CHECK NEXT SECTOR 
B4Ei O26464 126503 O00004 CMPB Pi geCT(RS), R32 ;SEE IF LIMIT EXCEEDED YET 
ete 036470 003760 BLE 14g :BR IF NOT 
036472 900736 BR 108 : REPORT SPR AND ABORT 
BYE4 O26474 012737 O41254 OOZ02E 16%: MOV SERRHOL A. ABNL ; RESTORE ERROR HANDLER ADRS 
eve 036502 600207 RTS PC RETU 
8487 s*#THIS IS THE ABNORMAL DRIVER ara WHICH IS USED TO HANDLE 
e4ee *#POSSIBLE ERRORS IN READING BAD SECTORS. 
B42S O26504 022765 130600 000034 BDSCHD: BIT SBSE!HVRC! DTEL OPI: 10Ck P_ER(RS) :SEE IF ANY READ ERRORS 


6450 036512 O01002 BNE a R If A READ  eAROR OCCURRED 


SES 2158 








uname s 


itiithiththtitu tutta 
8 8 8 ee 
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PART MACY1} 


OS-OCT-76 10:13 PAGE 160 
tnPeuF - OFTWARE C 


7( 1006) 
DRTA 
I” ERRHOL 360 He OTHER ERROR 
48: ee WEST LG :SET ERROR FL 
! RE TNML ; TAKE NORMAL DRIVER RETURN 






{RERER PES EPEPEERESERAL EL ELEERESESERARSERSSESESSSESES SED ESE SEEDED 
: ATYPBSF - TYPE FACTORY AND SOFTWARE SECTOR FILES (BSF’S) 


:#H7 TH T NDER, TRACK =? CTOR NO. OF ERCH BAD SECTOR 
i TST Somat ERY IN A tABL OCTAL VALUES, FOR EACH OF THE 


» POPS SOS HHEREREHEEREREOSEEEODERRENEREREORCRREREREREREELOREONEEOS 
G 


ibeces ;SAVE RO-RS 
CLR R :INIT LIMIT COUNT FR 
CLR INIT BSF pated GTOR 
MOV Sesract+19, RO  :AODRS A IN At oer BSF 
TYPE FACTBS : TYPE oF TORY” 
TYPE ‘BOSECT :TYPE “BAD SECTORS” 
3: Tyee DHEOY1 :TYPE “CYLNOR TRACK SECTOR” 
T SCRLF 
4$: TST RO) ;SEE IF @ SECTOR LISTED HERE 
BPL cas :BR IF Y 
TST Ri i SEE IF wot ene y EMPTY 
BNE =s_—s«14§ :BR 1 
TYPE  NOFALS 
TYPE  ,SCRLF : TYPE oR <LF> 
pe sté‘ékSS; 
es: MOV (RO)+,-(SP) ;GET_A CYL NO. 
TYPOC IT 
TYPE SPACE2 ‘TYPE SEPARATORS 
HOV RO) ),R3 >GET TRACK AND SECTOR 
SWAB RS :GET THE TRACK NO. 
MOV R3,-(SP) 
TYPOC ;TYPE IT 
TYPE SPACE? : TYPE SEPARATORS 
move  [RO).R3 *GET SECTOR NO. 
MOV R3, -tSP) 
TYPOC ; TYPE IT 
TYPE SCRLF 
TST tRO)¢ ;INCR THE POINTER 
INC RI :INCR THE COUNTER 
CMP R1, #126. :SEE IF LIMIT REACHED IN THIS FILE 
BLT 4§ :BR IF NOT YET 
148: TST RY :SEE IF BOTH FILES TYPED YET 
BNE 18s :BR IF NOT YET 
INC RY :SET INDICATOR FOR SOFT. FILE 
MOV #8SSOFT+10,RO :ADRS OF DATA IN SOFTWARE BSF 
TYPE SOF TSS : TYPE “SOFTWARE BAD SECTORS : 
BR 3 :GO TYPE SOFT. BSF 
18$: RESREG ;RESTORE RO-RS 
RTS PC RETURN 


{FERRER ERERAEEEESEAELAE LLL SRE LAELERERE ELAERARLTERS RLTERRLRALAFRARE 
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737 
036500 
16601 


YS. smcieed : PRRT | MACY11 au ga OS-OCT-76 10:13 PAGE 161 


MPBUF - SOFTWARE COMPARE 


aFINMEM - C MEERRED ON PARTIAL. XFER 
eC TERMINATED BY "0 ERROR ee STORE 1" IN WOSXFR. 
F achugheseatéhaesniahonmuiaantatasonctasiaasnnenneaasnenuanida 
NMEM: SAVE RO-RS 
Nov” B.CYLNCRS),80 T ORIG. CYL NO. 
MOVE PF. TROK(RS), "Ri :GET Mog NO. 
MOVS -B.SECT(RS);Re SECTOR 
CR so T SECTOR COUNT TO 0 
6S: EMP =—s«éBDCYL(RS),RO ;COMPARE ORIG. AND CURRENT CYLS 


BNE ; 
CMPB P.OTS+1(RS),R1 ;COMPARE TRACKS 


PIQTS(RS) wre PonBare ce #Oes 


:8R 
es: INC R3 sINCR SECTOR COUNT 
JSR PC, INCRSC sINCR PACK ADRS BY 1 SECT 
88 6$ 330 COMPARE ADDRESSES 
12s: Swag R3 s;COMPUTE NO. OF WORDS XFERRED 
V R2, WOSKFR STORE IT 
RESREG RESTORE RO-RS 
RTS PC : RETURN 


[ Phoseguetenoscenneepeveseonensonssinongesoszessnanansnensnaanas 
: RINCRSC = INCREMENT PACK ADDRESS TO NEXT SECTO 
gATHE CYLINDER TS PASSED AND RETURNED IN AO, Tack IN R1, AND SECTOR 


a ae a i leet a et 


tACRSC: MOV $21. :SET SECTOR LIMIT 
i318 FRAT ;SEE_IF vee SECTOR FORMAT 
MOY #19. ,R4 : SET SECTOR LIMIT 
4$: INC R2 : INCR. 
CMP Re, R4 iSEe iF SECTOR LIMIT EXCEEDED 
BLE ség'S NOT 
CLR R2 SET SECTOR =0 
INC RI :INCR. TRACK NO. 
eMp Rl, 82 :SEE IF eek LIMIT EXCEEDED 
BLE 6$ BR NOT 
a Ri : SET 
NC RO eee ROT rho R NO. 
tS: RTS PC ‘RET URN 


a ne ge ao armen sn ae oa gear pi cmaapemmue 
XFR - MID-TRANSFER PARAMETER UPDATE SUBROU 


TINE 
poo PACE) j TH PREPARE TION TO RESUME # TRANEFER 


;#TERMINATED BY A BAD SE 
srarastrasparcensncvestsusneteerasterietaseaseensautassevesstess 


atoyeR: SAV 

:COMPUTE. OF WORDS XFERRED 
MOV P.OCYL RS) RO, GET CYL_NO. 

MOVE p° BAtestis ae: :GET FRACK NO. 
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RKELL/RKOE SUBSYS. 
10:03 


a 


005550 
O0ebee 
000005 


VERIF. 


000010 


o0SS6e2 
005572 


00557¢ 
005574 


PART | 
imPBUF - bor tware = 
MOVE B.OTS(RS) Re 
J PC, + BNCRSC 
MOV RO,P.CYLN(RS) 
“0 R1.P. TRCK(PS) 
"0 R P. CTC 
MOV Kos ao 
age Bae" (RS) 
CLR RS 
ROL R3 
aobORGPMA 
Se ore 
MOV PMA P.BALO(RS) 
MOV PMAs2 RO 
BIC #177774, RO 
$8 0s«RO P. SAHI(RS) 
ST sKtii 
BPL 16$ 
Ise PC, PREPAR 
168: SREG 
RTS PC 
 ESVPRM 
te etpane - REST 
bipews 
MOV #PARMO+2, RO 
MOV #SAVPRS &} 
MOV WCO(RS3,WOSXFR ' 
NEG LOSER 
MOV ; 
CLR PMA+2 
TST PATRN 
BEQ GTO 
MOV MA, PMA 
MOV MA+2, PMA+2 
aR 0 
GTPRMS: SAVREG 
MOV SSAVPRS 
MOV terre, Ri 
GTO: MOV 
6S: MOV {BO (R1)+ 
DEC 
£§ 
RESREG 
TS PC 


S1b 523008) OS-OCT-76 10:13 PAGE ite 


;GET SECTOR NO 
INCREMENT PGCK ADRS TO NEXT SECTOR 
UPDATE CYLINDER 


; UPDAT 

fa oes 6 

sGET NO. OF n'y XFERRED 
SK - 

GET BYTES XPERRED 
;UPDATE PMA, PMA+2 

;UPDATE P.BALOCRS) 

; UPDAT 
:SEE I 


;UPDATE MEM MGT AND UNIBUS MAP 
RESTORE RO-RS 
; RETURN 


P. BAHT (RS) 
MEM MGT 


Lape pe ie a oe page ree sn tg aig ote = + tapas, 
“ INITIAL renee | ERS FOR TRANSFER 
RANSFER PARAMETERS 
dogeuseasensonnenseseentencovsegeansesnegsontossantess 
: SA 


-REREEE 
; 


OF PARAMS 
s ORS OF SAVE AREA 


T WORD COUNT 
hake IT POSITIVE 
70 RWBUF 


INIT PMA 
INIT PMA+2 TOO 

SEE IF DEFAULT DATA TEST 
BR IF YES 


;SET PMA=MA 
: SET PMA+2=MA+2 


;SAVE RO-RS 

ADRS OF SAVE AREA 
ADRS OF PARAMS 

SET ey S WORDS 
;MOVE A WORD 

:SEE IF DONE YET 

:BR IF NOT YET 

: RESTORE RO-RS 


jj RRRRAEHEEAELE ARERR ER RRREEAERELELAAAFERERER EE EEEERERREERER EAE 
;STRNSFR - PERFORM A DATA TRANSFER, AND HANDLE BAD SECTORS, IF 


SEG 9181 


MO-11- mY ay ‘= mei! Ae E SYESYS 


DZRENC . PF 05-0CT 
8653 


i bY 
4 
8 
Sete 
lo 


66 
8715 037476 005722 


ooo 


. VERIF. 


001264 


G13 


: PART MACY1] 27(1006) OS-OCT-76 10:13 PAGE 163 
MPBUF - 0° TWARE COMPARE DATA 


MENON, THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SUS- 
#ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLED. 
eo gm gecny ye ogee oe Ey | peasant es 


or MOV RY, -(SP) sSAVE RY ON STACK 
LR Ry" :CLEAR BSE ERROR INDICATOR 
CLRB 3s WCEFLG s INIT WCE ERROR FLAG TO 0 
4g: ISR pc nitban atc PERFORM THE S.S. FUNCT 
gi ait ERR. RECODE SEE IF Ee OR OC 
MOVE a WCEFLG ISET hice. ERR OR FLAG 
cs: gi! SESERR, RECODE rue ese ERROR OCCURRED 
INC BS - : INC ace ERROR INDICATOR 
JSR PC, MIDXFR SATE PARAMS TO RESUME XFER 
TST P_HCC(RS) :SEE IF ENTIRE XFER IS COMPLETED 
BNE 4§ ' $BR IF NOT 
68: TST RY ; SEE IF ANY BSE ERRORS OCCURRED 
BEQ ag NOT 
JSR PC, GTP RMS RESTORE ORIGINAL PARAMS OF XFER 
JSR €’ SvPRMS "RESTORE WOSXFR, PMA, PMA+2 
St stil SEE IF MEM MGT PRESENT 
1S Be renee : PREPARE NEN MGT AND U.M. 
gS: MOV {SP)+ !RESTORE R 
RTS : RETURN 


s LELELREELALHE LALA LALLA HLL EAARE LAE LELLLELARA LALA AELALAELARELLEE 


-SBTTL SEARCH BAD SECT S ROUTINE 

sais ROUTINE RETURNS A LIST OF BAD SECTORS FOUND IN 

;#THE SPECIFIC TABLE (BAD SECTOR SOFTWARE OR BAD SECTOR FACTORY) 
;#FOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MUST 

; #CONTAIN THE CYLINDER AND TRACK, RESPECTIVELY. 


t STHE LIST OF _BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE 
;*#RETURNS TO THE CALLER. THE FIRST ENTRY ON THE Ne WILL BE THE 
; #NUMBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND TRACK. 
 $EREERE ERA EEE ERLE EE RES E EAA REREARAS REE EEES EE RRER RE EAE RES EAR EEE 
HTBS: — ay Ue 


V R3 STHES Ao 

MOV Reef] -STORE RETURN CONTENTS OF R 

MOV (RY) 188 MEET ADD ORES OF BAD SECTOR TABLE TO "Searcy 
pe (R4)4,§ THF ETuP FOR LENGTH OF BAD SECTOR TABLE 


#1000" STMP! 
CLR R3 :CLEAR R3 FOR COU 
ADD #10,R2 ‘SET R2 FOR BoNtER TO CYLINDER ENTRY 
1S: TST (R23 :TEST IF ALL ONES 
BMI o$ : YES" -DONE 
CMP RO, (Re) TEST IF BAD SECTOR IN PRESENT CYL 
BEQ 3$  YES-GO CHECK TRACK 
ADD #4, R2 ELSE BUMP POINTER 
CMP Re. STMP1 :TEST IF OUT OF TABLE 
BGE c§ : YES-EXIT 


1$ ;LOOP 
3$: TST (R2)+ ; TRACK CHECK - PUT POINTER AT TRK/SEC BYTE 


SEG Cis2 





ee 


-) e ] -DZREM-C 
DIREC. PLT 





= PKGLLFHOR SUBSYS. VERIF 


0-00 
Bi 1837 


901302 
aatea5 


177700 


001 
O01 
001272 


001000 


001302 


037572 


003222 
037572 
005474 


005474 


PART 1 1 27(1006) OS-OCT-76 10:13 PAGE 164 SEG 0 
search Bad sector” ABLES ROUTINE <ssiagen 
Hoy Sus reo :GET TRK/SEC WORD 
Beg te hh See iF ghb seco IN THIS TRECK 
BEQ - GO PUT NUMBER ON STAC 
TST the) iF ee BUMP POrntER Fo NEXT CYL Rone. 
BR 1$ ;60 TEST NEXT 
4§: INC R3_ BaD ‘count 
MOV (Re) +, -(SP) BUT TRK/SEC WORD ON STACK 
BIC 8177700, (SP) :CLEAR ALL BUT SECTOR NUMBER 
35 1$ °GO CHECK REST OF FILE 
cs: MOV R3, -(SP) EXIT - F BAD 
MOV ites Re ; SECTORS ON STACK-RESTORE 
MOV TMP3‘R3 sREGI TERS 
MOV STMPY: -(SP) PUT RETURN ON STACK 
RTS RY TURN 


tne erretperrnaragbbranrrneenmmneceemenae 
'S8TTL BAD SECTOR CHECK ROUTINE 
:*THIS ROUTINE WIE SEARCH BOTH TABLES TO DETERMINE IF A. 
>¥SPECIFIC SECTOR IS LISTED AS BAD. IF THE SECTOR IS ret ED IN THE 
S*TABLES THE ROUTINE bets ue “BANSEC™ FLAG AND RETURNS. IF THE SECTOR 
*#IS NOT LISTED THE FLAG IS RESET. 
Ae ccmahclchicentontannstand shubmenniadmebnbinametaiesiemamtas 
Raa SAVREG 


#BSFACT, 1$ :SET TABLE TO SEARCH 
2s: JSR R4, SRHTBS :G0 SEARCH IT 
is: . WORD ; TABLE ADDRESS GOES HERE 
MOV (SP)+,R3 ;GET une ER OF BAO SECTORS, IF ANY 
BNE LIF ANY 0 TEST Of 
7S: CHP 18, s8SSOFT ieise its! oF OTHER TABLE ALREADY SEARCHED 
HOV #8SSOFT, 1$ iat OT OTHER TABLE FOR SEARCH 
38: BIC #BADSEC,RECODE :CLEAR ABAD UT STOR BIT 
4g: RESREG 
RTS PC ; RETURN 
6S: CMP (SP)+,Re :THIS SECTOR IN TABLE? 
BEO ce :YES-GO SET BIT & EXIT 
DEC R3 ;DECREMENT BAD SECTOR COUNT 
BNE &$ :IF NOT ZERO-CHECK NEXT ENTRY 
=e 7§ sELSE GO SEARCH OTHER TABLE 
QS: BY #BADSEC,RECODE SET BAD SECTOR 
33: DEC R3 :CLEAR STACK OF OTHER BAD SECTOR 
BEG 4g NUMBER 
TST (SP)+ 
BR 3 sEXIT 


© FKESKEREFE REESE ARA SSSR SELAAAE SEA FLKERARERELAARSAARAAELALELEERE 
‘aBTTL CALL pORivER ROUTINE 


pees JSR PC,DRVC 
WITH RS POINTING TO PARAMETER BLOCK 


t SRETURN RTS PC 


:# 
:#THIS ROUTINE IS USED TO INITIATE A SUBSYSTEM OPERATION BY 
:#CALLING THE DRIVER. THE PARAMETER BLOCK MUST BE SET UP 





MO-11-DZREN-C - RKGL1 RKOE SUeSiS. 
D Pll -76 10:03 


- 0S-0cT 


032040 
035700 


044356 


© 
DO IRA 


00S22e 
00S236 


ANRRRRR RRS 
WO NMU£ (une 
Ee a PEO 
WANG GOS 
—-QO0O0000 O0r- 


-G) 


093134 


7 
e820 4 
737 005260 
rae 


VERIF. 


# Y THE CALLER AND 


005254 
00S2S6 O0SeSe2 
005260 
o0S2S6 


PART 1 MACY11 27( 1006) 
GALL DRIVER ROUTINE 


OS-0CT-76 10:13 PAGE iS 
Re pust PRINTS i THE PARAMETER 

OCK WHEN THE ut NE IS CALLED 

Pe WAITS FOR THE OPERATION TO BE COMPLE 


reek RT “Beat "IN base fee SupgvSteH DOES HOT PR Pare, 


WILL yy THE DONE 
i yebas RINTCH EVs he TROUT INE . RETURN 1 
MTL ePER DLS PEAHUSELSEROSTEEOEEESESEOTOSSSELOTOSTLASSIESESESNSEOS 


AaVCAL: 
S PC, STALL ;PERFORM A STALL IF REQUIRED 
JSR PC’ CTLOUT : CHECK FOR (te) or (#2) KBD INPUT 
cLRe DONE sCLERR DONE er bt ED BY OTHER PORT FLAG 
$56 Bee CMD STORE PREV Aino sr ReENT = COnrANDS 
MOV RS.4$ paneer Block 2 
ISR PC;C. INIT Sr DRIVER 
4§: WORD 5 SS GOES HERE 
6$: ISR PC, W.WTCH CALL WATCH DOG 
TSTB 30s DONE :DONE SET? 
Q 6$ : NO=LOOP 
7STB § DRNAFG :SEE IF RIVE WAS SIEZED BY OTHER PORT 
BEQ 128 :BR IF N 
CLRB «DONE : CLEAR NONE F LAG 
€LRB  DRNAFG :CLEAR DRIVE NOT AVAIL FLAG 
MOV RS, 8S :GET PARAMETER BLOCK ADDRESS 
ISR PCC. INIT :RE-ISSUE THE COMMAND 
8$: WORD :P.8. ADDRESS GOES HERE 


10$: JSR PC, W.WTCH “CALL WATCH DOG 
TSTB © DONE :DONE SET ? 
BEQ 10$ :NO = LOOP 

128: RTS PC : YES-RE TURN 


e SEFELSSSSESELAARSLASESESAARSELEAAEESARASAELELSSHRERHRAAL TRAE AAERIE 
t eSTRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS 
© KRESS RELE SEALER ERAEASSAASSKEAE SHLAA LE SEARLALAR ELE ALASFLERETEE 
d+RCMD: SAVREG :SAVE RO-RS 
MOV SPRVCMD,R} ?ADDR OF PREV COMMAND STORAGE 


MOV ore RO ;ADDR OF CURRENT COMMAND STORAGE 
;STORE PREVIOUS ar PND’ 
MOV (RO)+, (R1)+ 
(RO)+; (R1)+ 
MOV (RO)+,(R1)+ 


MOV (RO)+, (R1)+ 
MOV (RO)+' (R1)+ 
1378 UENP 5 SEE IF uNIBUS MAP PRESENT 
MOV CRMPHO,PRMPHO ;:STORE PREV U.B. MAP REG 0 
MOV RMPLO’ PRMPLO 
NOV #MAPHOO,CRMPHO ;STORE CURRENT U.8. MAP REG 0 
JeMAPLOO, CRMPLO 
: STORE CURRENT COMMAND 
4g: SCOMSTR,R1 





ey Ts - RK61i/RKO6 SUBSYS. VERIF. 


DZREMC . P 05-OCT-76 10:03 
8827 04 12521 
8828 Mates leSel 


: PART 
CALL SRIVER ROUTINE 





J13 
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MOV (RS)+,(R1)+ ;RS POINTS TO DRIVER PARAM BLk 


8830 O40074 012521 MOV (R5)4" (R14 
8831 o40076 012521 MOV (R5)4' (R14 
| 8832 O40100 012521 MOV (R5)+) (R14 
8833 o40102 104410 RESREG sRESTORE RO-RS 
8834 O40104 O00207 TS PC : RETURN 
2235 
£838 st DRIVE ERR FRE REIN ROUT 
$835 - RROR of REE RETU TINE 
8849 aT ROUTI LED BY. Tee bed RetveR WHEN NO ERROR 
884] :*HAS BEEN DE eAtcs atk THE ROUTINE SETS THE 
geve : DONE FLAG THAT IS TESTED IN ThE RIVER CALLING 
*BSs4 ° eee oe aT he beh 
| 8845 o4o106 152737 000377 002113 bRRFRE: NE :SET THE DONE FLAG 
8846 940114 032737 190000 74 SaNYOER RECODE :TEST IF ANY DATA ERROR 
2947 puige 001403 BEQ 2 :IF NO - DO ERROR RECOVERY PRINT TEST 
884 6124 105037 003116 CLRB RRCNT ; CLEAR ERROR COUNT 
£848 040130 000413 BR 1 XIT 
| 8850 O40132 105737 003116 23: TSTB  ERRCNT creck IF ANY ERRORS HAVE OCCURRED 
8851 O40136 O01410 _ BEQ 1$ - SKIP TO EXIT 
| 8852 O40140 005037 001174 CLR SREGS 
8853 040144 113737 003116 001174 MOVE ERRCNT, SREGS at RETRY COUNT 
S854 O401s2 104101 ERROR 101 :PRINT RETRY SUCCESSFUL MESSAGE 
Secs pucis4 105037 003116 CLRB ERR CNT “CLEAR ERROR COUNT 
8656 O40160 905037 905474 is: CLR RECODE s CLEAR RECOVERY FLAGS 
8857 O40164 900207 RTS pC TURN 
i eese : epeaeereaseasensazssnenasecaniasansssesnnsentasenentensasess es 
/  gess SaTTL TYPE ERROR 
Be60 -XENTRY - JSR Ee ryPERR 
E861 ; #RETURN - um = 
B63 :ATHIS ROUTINE USES THE “ITEM CONTROL BYTE™ (SITENB) TO DETERMINE WHICH 
_ BBE4 * ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE” ($ERRTS) 
| Bees j SENTRY 10_ DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 
“* 
8867 - + LEFESSKLSEE SSL SARE KALE REESE RL REA HAASE EARLE RAL EA SERS REL ELE RK SKE 
S868 O40166 10H407 +{PERR: SAVREG 
| 8869 040170 105237 003120 INCB ODRVERS : INCR RROR COUNT FOR THIS DRIVE 
8879 040174 032737 600040 o0S750 BIT sBITS,cS :SEE IF DRIVE SHOULD BE DROPPED 
8871 : IF ERROR LIMIT EXCEEDED 
B872 o40202 OOl4i2 BEQ 33 :BR IF NOT 
8873 040204 123727 003120 o00024 CMPB  ORVERS, #20. :SEE IF yg OES) ERRORS EXCEEDED 
8874 O40el2 ope405 BLT 9$ BR IF 
8675 040214 105037 003120 CLRB  DRVERS SEAR DRIVE ERROR COUNT 
_ 8876 O40220 104401 Oliess TYPE DROPDR :TYPE “DROPPING 
IMP NEWDRY :PROCEED TO TEST NEXT DRIVE 


8877 O40ee4 000137 016772 
8878 


040230 032777 Oe0000 140702 9S: BIT 


TO 
#SW13,JSWR sINHIBTT ERROR TYPEOUTS? 


8879 040236 001402 BEG 
8880 O40e40 000137 O4O0E44 JMP 20$ 
| 8881 O40e44 005000 €$: ae ae ;CLR_RO FOR ERROR NUMBER 


Bese O40e4— 005005 


;INIT INDENT INDICATOR 














MD<} 


11-DZREN-C = RKG11/ 
OZREMC P11 - 













05-00 








2000 
012002 








(O06 SUBSYS. VERIF. 
:03 


2s: 
040470 3$: 


oo 


COO 6140564 


BERBER 
RBS 
inns 


fe 


308: 


012413 


4§: 
0013iS 


010000 140432 SS: 


T 1 





MACYLI 27(1006) 
TY vee” ERROR ROUTINE 


RS 
Nasi »RO 


» CRELF 
» AS2SPe2 


0 
(RO)+,4$ 
S$ 
+ SCRLE 
TMSG 
STSTNR -(SP) 


, CRELF 
#81712, aSWR 

20$ 

,DH10S 

,» SCRLF 
,DH101+10 
eck vd 


BehEG2 Re 
(R2)+, -tSP) 


SPACEe 


2 
tR2)+, -(SP) 


SPACE2 
tR2),-(SP) 


, CRELF 


0 
SCRLF 


) 
#81712, SWR 
(RO)+,R1 


(RO)+,RO 
(RO)+; Re 











OS-OCT-76 10:13 PAGE 167 






;ENTER ERROR NUMBER 
FORM INDEX FOR ERROR TABLE 


seer EM POINT OF ERROR ENTRY 
BRANCH IF THERE ISN'T ONE 


sTYPE “aa * 
TYPE ERROR MESSAGE (EM) 
7EM ree GOES HERE 


:GET POINTER 
:BR I THERE ISN’T ONE 
TYPE _* TEST 


:GET TEST NO. oN STACK 
TYPE IT 


ig Oletis LEADING ZEROS 
REPORT DESCRIPTION ONLY ? 
:TYPE “PREVIOUS COMMAND :” 
; TYPE PREV COMMAND HEADER 
;SIX COMMAND VALUES 
: STARTING RODR OF PREY CMND VALUES 
;P WORD ON STACK 
at 
‘TYPE SEPARA 


TORS 
;SEE IF 7 VALUES TYPED YET 
:BR IF NOT 


; INDENT 

; TYPE HOR FOR BA DATA 
; INDENT 

; TYPE PREV. HI BA BITS 


;TYPE PREV. LO BA BITS 


; TYPE DATA HEADER 
:DH POINTER GOES HERE 


; INIT INDENT INDICATOR 
; REPORT aati ONLY ? 


GET DT POINTER 
BRANCH IF THERE ARE NONE 
:GET OF POINTER 
;STORE NUMBER OF DH’S 
















MO-11-DZREN-C - RK611 CREO Rhy VERIF . 


DZREMC.P11 OS-OCT-76 1 


104407 
fi 


064 
000470 
032737 


012427 


Ole427 


001315 
040624 


001315 


012427 
001315 


oo0c0e 


000377 003113 
003116 
043600 
000001 o0304e 


o0000e 03042 


ives” ERROR ROUTINE 


10S: 


ils: 


1e$; 


14S: 
155: 


34S: 


36$: 
16$: 


20$: 


. 


T 1 


BR 
eee 
RTS 
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(RO)+,R3 sGET_8 STORE NUNBER OF DATA WORDS 
(RO)+ i MP PAST FORMAT EB 
RS ST F BNy D8 A f ef k THIS HEADER 
RS SEE 1 IF “SHOULD INDENT 
ACE2 : AT 
diRL)+, -(SP) sFUT FIRST DATA WORD ON STACK 
R3 :MORE DATA WORDS 
12$ :NO-BRANCH 
1 SeAcee :TYPE SEPARATORS 
Re :SEE IF wi <LF> NEEDED 
14S BR IF NO 
SCRLF ;TYPE IT 
: MORE OH” S? 
20% :NO-BRA 
(RO)+, 16$ : GET NEXT DH POINTER 
(RO) :SEE IF ANY DATA FOR HOR 
343 :BR YES. 
$CRLF :SKIP EXTRA LINE 
RS :RE-INIT RNOENT INDICATOR 
RS : COMPLEMENT INDENT INDICATOR 
363 :BR IF 0 INDENT REQUIRED 
, SPACE2 i NDENT 
TYPE DH 
DH POINTER GOES HERE 
SCRLF 
RO) ; TYPE a OT? 
10$ : YES-BRANCH 
#2, R0 INCREMENT DF POINTER 
14$ :SEE IF END OF DF BLOCK 


Cc 
HEHEHE EHH IEEE EHH HEE E EHS HEHEHE EEE 
aBTTL CONTROLLER ERROR REPORTER ROUTINE 
*ENTRY: JSR PC, CONERR 


j RETURN: 
i STHIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND 
REPORTS THE APPROPRIATE MESSAGE. THE RK611 REGISTERS ARE 
i SRETRIEVED FROM THE RK611 AND PLACED IN THE PARAMETER 


;*AT THIS TIME. 
Te ae + aap aman "aS tae ante nie 
AVREG 


bbNERR: 


1$: 


S_IS DONE BECAUSE PARM O MAY NOT BE VALID 


#377, DONE ‘ery DONE FLAG 
ERRCAT s INCREMENT ERROR COUNT 

PC, TOPROC "LOAD RK REGS INTO $REGS 

#3170, E. CONT ERROR 02 OF 

i PEAR NONT DID NOT CLEAR ERROR 


$ 
#BIT1,£.CONT ;ERROR 1? 


a 


MO-11-D2REN-C - RK611/ a. ins VERIF. 


OZREMC.P11 


8995 


$7 
8998 


Sosssss 


= b= 0 bb ee 
000 NOU Oe) 


Pee PP PPS PPP PEP PCP EES 


SSRIS Some 


RERSSE 


r 


RSEBSASSBASAABSAABSBAS 
“ 
ot 


ee 
£ 
rear esy 
3G 
= 


041076 


2 
R 


PERRPRPER 
BESeRREB TS 


05-0CT-7 


042703 


000004 
003127 
003130 


000010 


000020 


000040 


000400 


001000 


002000 


100000 


O0304e 
043400 


005476 


003042 


003042 


003042 


003042 


003042 


003042 


003042 


003042 


005476 


es: 


15S: 


3$: 


4$: 


SS: 


6$: 


9S: 


10$: 


11$: 
78: 


PART 1 


MACY11_27(1006) OS-OCT-76 10:13 PAGE 169 SEG 
tonTROLLER ERROR REPORTER ROUTINE 


2g ;NO-BRANCH 

Ps NO ATTENTION IN ATTENTION SUM REG 
#81T2,£.CONT ;ERROR a 

DRIAFG ae IF SBrve WAS SIEZED BY OTHER PO 
REISSU ery re ne T RE ISSUE COMMAND 

eb UNSOLICITED ATTENTION 

4BIT3,E.CONT  ;ERROR 3? 

4g :NO-BRANCH 

&7 SUNEXPECTED DATA TYPE ERROR 
#BIT4,E.CONT  ;ERROR 4? 

cs _ }NO-BRANCH 

70 ZATTENTION DID NOT RESET WITH CLEAR 
#BITS,E.CONT - ;ERROR aney 

6S : NO-BRA 

71 ‘Sugeys. SEAR DIDN’T CLEAR DRIVE ATTENTIO 


7$ 
#81T8,£.CONT 
8$ 


7e ;DATA LATE WHEN UNLOADING HEADER 
Birk, s.0e 


73 ;CONTROLLER ERROR DURING DRIVER SERVICE 
1 Nceadmtamae 


74 ;DRIVE DETECTED PARITY ERROR 
ot ‘iatartaened 


Se ;MULTIPLE DRIVE SELECT 


75 UNDEFINED ERROR 
E.CONT ;CLEAR CONTROLLER ERROR WORD 
BGNRTY :GO DO RETRY 


PTETTTTTESTTTTTSSETECTT TESTS TST TESTS ETTT ETT TTT TT Ts FERKKAFEELAEEE 
‘aBTTL REPORT SUPPORT ROUTINE 


;*THIS ROUTINE 


HE PARAMETER BLOCK DATA TO BE REPORTED 


ADS ALL T 
*INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY 
janct BE INCLUDED IN THE REPORT, BUT THEY ARE LORDED ANYWAY. 


E LEAR ERROR COMMAND STORE 

P. RANDCRS), ERRCOMs LEO oRE COMMAND START VALUES 
#SREGO,R FOR R REPORTING 

P.CYLNURS), (RO)+ 


P.TRCK(RS), (RO)+ 
P, SECTCRS), (RO)+ 
a “HC(RS) (RO)+ 


#SRE 
P. BRAT ERS), R3 
#177774,R2° 


0188 






| 
i 
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cREMC.P11 OS-0CT-76 10:03 
9051 pre pest eT 
oe RIG Hee Bib 
9054 live 016520 000020 
$055 041176 016520 000030 
9056 O4le02 O165e0 0000c6 
9057 041206 016520 0000ce 
9059 O4l2l2 016520 000 
9080 O4l2l16 016520 000032 
$061 O4lee2 016520 9000036 
9062 O4lee& 016520 900034 
9063 O4le3e 0165e0 000040 
$064 O41e36 016520 O00004e 
3065 O4le42 0165e0 00044 
$068 O412e4% 016520 000046 
SR dee ie 

- 

9069 buiSes Q16S¢ sate 
aoe O4le66 O0165e0 O000S6 
9072 O4le7e 012701 001236 
9073 O41e76 012700 eee 
a ES Hee 
9076 041306 112021 
9077 041310 10502: 
2 BIR Et conn 
9080 041320 105021 
9081 O4l3ee 111021 
9082 041324 105021 
$083 041326 016021 O000N6 
$084 041332 116003 000003 
SC; 041336 O42703 177774 
9062 O41242 010321 

87 041344 016011 000004 
9088 041350 104410 
9089 O4135e 000207 
3030 
$091 
309¢ 
$093 
3094 
9095 
9096 
9097 
9098 
3099 
$100 041354 104407 
$101 041356 152737 000377 
9102 041364 105e37 003116 
9103 041370 005037 005474 
9104 1374 032737 000400 
9105 041402 001402 
$106 041404 012705 002704 


1 
REPORT SUPPORT ROUTINE 


MOV EG3 
001260 MOV 


N13 
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MOV 3 Be elas B a VALUES FROM THE 
K AND LOAD 


MOV P.¢Se 0)+ ;PARAMETE 
MOV BCT CRS A THE  ERRORARY REGISTERS 
MOV P.DTS(RS),(RO)+ ;FOR REPORTING T 
MOV P.WCR(RS),(RO)+ ;DATA MAY NOT BE va 1D 
"FOR ALL REPORTS (T0 BE 
MOV P.BAR(RS),(RO}+ :DETERMINED LATER) BUT IT IS 
MOV P.ASOF (RS), (RO)+ :STORED ANY 
MOV P.DS(RS), (RO)+ 
MOV P.ER(RS). (RO)+ 
MOV P.A00(RSS, (RO)+ 
MOV P.BO0(RS); (RO)+ 
MOV P.ADI(RS); (RO)+ 
MOV P.B01(RS); (RO)+ 
MOV P.A1O(RS), (RO)+ 
MOV P.B10(R5). (RO)+ 
MOV P-ALI(R5); (RO)+ 
MOV P.B11(RS) | (RO)+ 
;STORE PREVIOUS COMMAND FOR PRINTOUT 
MOV $REG2E,R1 :ADRS OF PRINT BUF AREA 
MOV #PRVCMD. RO :ADRS OF PREV CMND STORAGE 
MOVB (RO) +, (R1)+ :DRIVE NO. 
CLRBs( R14 
MOVB (RO)+, (R1)+ ; COMMAND 
CLRB ss (RI) + 
MOV (RO)+, (R1)+ ;CYL_ADDRESS 
MOVB 1(R0), (R1)+ : "ROCK 
CLRB sR) + 
MOVB (RO), (R1)+ SECTOR 
CLRB (R1)+ 
MOY B(RO), (RL)+ :WORD COUNT 
MOYB  3(RO)_R3 *HI BA BITS 
BIC #177774, R3 
MOV R3, (R1)+ 
MOV 4(RO), (RL) :LO BA BITS 
Are” pc 
: © KELLER AELE SKLAR ELAE AE SLELELERARAEESFERAAARHF LAF E SSS HELE FZEERE 
S877 REPORT ERROR ROUTINE 
% ENTRY JSR PC, ERRHDL 
; RETURN 
tATHIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR Is DETECTED 
*IN THE OPERATION. THE ROUTINE DETERMINES WHICH COMMAND WAS 
H#B8EING EXECUTED AND GENERATES THE PROPER ERROR M 
se Lecurnicetsureeasteanaedausaduscsairaaaresastaaysihaeeeanees 
003113 — Bree #377, DONE ;SET DONE F 
INCB = ERRCNT : INCREMENT LABOR COUNT 
CLR RECODE :CLEAR RECOVERY CODE WORD 
005474 ER2ENT: BIT #LEV2ER, RECODE ;TEST IF eND | LEVE L ER ROR 
BEQ :NO_- SKIP PARAM SBLOCK 


52S 
#PARM1, RS 








ANGE 
sELSE SET Re TO PARAMETER BLOCK 1 





SEG 0189 








, UBSYS. VERIF. : PART 1 MACYI1 27(1006) OS-OCT=76 10:13 PAGE 171 S66 2170 
| DEREMC. x :63 REPORT ERSOR ROUTINE : : 
| gy99 NI4i0 DlE7a? QvOESE 070% SEE: MOV SRE TAN. A.A. GSE NOW ABNORMAL AMO NORMAL RETURN FoR 
gide Balsie Sis737 OM367C 003034 wy SRETNML'A.NORM DRIVER OPERATIONS IN ERROR PROCESSING 
$109 Ovlues Gonra? O41074 JSR PC. REPSUP :G0 SET UP REGISTERS FOR REPORT 
9115 iNoy BEGIN TESTING THe ERR 
iii 'eiTs. THE SEQUENCE IN 
9372 tHHICH THEY ARE TESTED IS 
a333 SCONSIDERED SIGNIFICANT IN 
$118 I THAT ERRORS OF A MORE 
siis ICATASTROPHIC NATURE ARE FIRST 
Stig TESTED. 

| iis :IF- AN ERROR IS FOUND SET 

| $115 :THAT ERROR IS REPORTED AND 
sie :THE REPORTING 15 TERMINTED, 

| $133 STF ADDITIONAL ARE SET, 
giss I THE RKGL1 REGISTER PRINTOUTS 
9:33 iI fats aut 

| gi x ZREGISTER CONTENTS MUST BE 

es 'MANUALLY DECODED TO LOCATE THE 

| $e \ SECOND ERROR : 

| $137 o4i430 o2¢504 900034 MOV —s&P.ER(RS). RY’ SET _RY TO ERROR REGISTER 

| §158 O41434 O3e76S Oe0000 oD0020 BIT  -sUPE.P.CS2(RS) TEST UPE. IF UES-SET 

| Hes puishe Soi4oe BQ ttsé«dS TREPORT ERROR 

| $756 Geiss o400: ERROR 1 

| $131 O4r44— 052737 00200 oosH74 815 SABORT, RECODE 

| $338 O41454 000:37 Ou3le4 hi, es | ae 
$133 41460 O32%65 Oo4000 00020 15 BIT  SNEM.P.CS2(RS) ;TEST NON-EXISTANT MEMORY 
$134 O4i466 001406 BEQ sé 

| 8135 O4i470 iD4ooe ERROR 

| 9136 O41472 062727 oooz00 0S474 515 SABORT,RECOOE 

| «HE ise 37 (0431 MP 378 ¥ 

| §139 oui ¢ £78453 oocozo 28:  BrT -aNED.P.CS2(RS) ; TEST NON-EXISTANT DRIVE 

| ES Bigie cise BEQ 

| 8196 O41819 032765 ooo4o0 ooode0 BIT - SUFE,P.CS2(RS) ;TEST IF NED 8 UFE BOTH SET 

| 141 041822 601403 BEQ «38S 
$142 C4150 jO4O35 ERROR 35 :NED 8 UFE BOTH SET ERROR 
$143 O41526 000137 oya1e4 IMP 37S 

| He Bless isoes 308: ERROR 3 :NED ONLY 

| 4s 41594 600137 o43124 IMP 37S 

| $i4— O41540 032765 Ood4d0 oo0020 38: BIT SUFE,P.cS2(RS) ;TEST UNIT FIELD ERROR 

| HAZ Bie Sale nt 
$146 4560 032765 10000 od00e0 BIT —«SNED,P.CS2(RS) TEST IF UFE 8 NED BOTH SET 

| 6149 O4155— 601403 BEG tiéi398S :NO-SKIP 
HE? SHIGEO 104035 ERROR 35 "REPORT NED & UFE BOTH SET 
9151 O4lse2 000137 o42124 IMP 37S 
S152 O4i5e— JO4004 398: ERROR 4 SREPORT UFE ONLY 

| «BE RE7> 00187 oxsiey IME «37S 
S14 O41574 5 OQ00100 OOCOI4 48: BIT SCMDTO,P.PRST(RS) ; 
SES Ouleo2 O0l4e3 BE9 
Si56 O41604 904737 O42600 76R «PC, TOPROC :G0 PROCESS TIMEOUT 
Sis? O4le10 032737 Oo2000 OOs474 BIT wTHOTOS.RECODE 2ND TIMEOUT IN TIMEOUT PROC? 
§ice O41ei6 001007 BNE 4 SYES - SKIP TO. ERROR Sb 
$i&3 41629 032737 ooo pOSsH74 BIT @LEV2ER,RECODE TEST IF LEVEL 2 ERROR 
$160 O4lee6 001006 BNE «4S tYES - SKIP TO ERROR 57 
Sici O4les0 1o400s ERROR 5 'ELSE MAKE FULL TIMEOUT REPORT 
Sige O4l63e 600137 o43124 IMP 37S 








C14 


MO-1-D2REM-C - RKEII/RKOG SUBSYS. VERIF. : PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE i72 SEG 0171 
DIREMC.P1l | OS-OcT-76 10:53 REPORT ERROR ROUTINE 
S162 O41636 1O40SE 40S: RROR SE :TWO TIMEOUTS ERROR REPORT 
Sigs O41640 650137 042124 aia zc 
165 1e44 10406? Ms 418: ERROR be + 2NO LEVEL ERROR REPORT dh 
f ] . 7 q d . 
aiPS RGiECS e0ar2 SYA on cg, | BT EBEE BD beer pS? eee te Tee eee ET eles pone 
G12 BULPEO eee, size Eo. acs eRe ORME As Buel ree 
gi82 Ruiebe AOS re geet BEE DF OUP reEee reat 
ie Biers 104107 3 ERROR 107 :DRIVE SIEZED BY OTHER PORT : 
F, e ~ 
#23 1676 1° 337 R33 ig we ince DRNEE G aime math DRIVE fot AVAILABLE FLAG 
17 é é 0900 ai) 8 ’ ‘ H 
aise Bris pt Eres 120800 peor es MOV W.MIN,W.ORV otf eines FOR UT A MINUTE 
$17 1716 113700 905500 Move vE :DRIVE NUMBER 
$177 i758 118037 2072 003071 MOV T.ORVIRO), INTMSK i367 MASK FOR THI OR IVE 
3158 S423 Aiea? Dozer Sos07e Nove iittsk  H. TIME SET DRIVE NuMBER FOR THIS ORIVE 
Sisd 41742 RTS pC > 60 Bet Eom eI VE ATT’N 
Si8] OM1744 0352765 o20000 opcdls éS$: BIT aSPAR,P.CSI(RS) :TEST O TO C PARITY ERROR 
Sise O4i7s2 001406 BEQ 6$ 
$183 41754 1O4006 ERROR 6 
$184 O4175¢ 052737 904 00S474 BIS SRCLREQ, RECODE 
$185 041764 000137 943124 IMP : 
$186 041770 032704 O00010 &$: BIT SDRPAR, RY sTEST DRIVE DETECTED PARITY ERROR 
$187 041774 9014 Ee 7§ 
S188 041776 Hareid ERROR 7 
$188 042000 052737 oowo00 oOsH74 SIs SRCLREQ, RECODE 
$150 O42006 000137 043124 IMP 373 . 
$19] O420l2 032765 dodGio ooooz 7s: BIT #ACLO,P.OS(RS) ;TEST AC LOW 
SiS O42020 9001403 BEQ Fy 
$193 O42022 i040i0 ERROR 10 
$194 042024 000137 o43124 IMP 375 
$195 042030 032765 O0002c oD003E as: BIT #SPDLSS,P.DS(RS) ;TEST SPEED LOSS 
$196 O4203E 001403 BEQ 24s 
He RRS EY pee ee" i 
$195 Bas5ue see 604660 oco0c1g 248: BIT £735 ©. oS1(R5) sTEST FOR CONTROLLER TIMEOUT 
$206 O420S4 601401 BEG ess 
a52 Basses meee 900001 2s Ergo ie RY TEST ILLEGAL FUNCTION CODE 
Py ’ H vv 
z555 Bus5e4 001403 EQ 10$ 
% O42066 104012 ERROR le 
32 ee 7g Sash o00020 108: BIT SPeE.P.cS2(RS) : TEST PROGRAMMING ERROR 
$207 Od2i0e O01 11 
28 RS HEY pain aes 
id O4elle i ataetat 118: BIT SILF,RY sTEST ILLEGAL DRIVE FUNCTION 
$211 O42116 901403 BEQ 125 
$212 Sele 104014 ERROR 14 
$213 O4el22 000137 0432124 IMP 37 : 
$215 O42126 032704 Oo0040 128: BIT BOTYE,RY :TEST DRIVE TYPE ERROR 
e2 hin tae fin JS | 
$217 Baste cated 043124 IMP 375 : 
$212 O42142 0 138: BIT SFMTE, RY sTEST FORMAT ERROR 





| 
| 


A a a a mmm ee 
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MD=J1-DZREN-C = RKELI/RKDE SUBSYS. VERIF, : PART J MACYII 27(1006) OS-OCT-76 10:13 PAGE 172 S£6 2172 
DPREMC.P11 | OS-OcT-76 10:03 REPORT ERROR ROUTINE 
8219 042146 01403 20 Osu 
$220 Seis) 10901 ERROR J 
Sci eet cis? 943124 nea 3 
a Sige Bae7b4 powds0 148: BIT SWLE.RY STEST WRITE LOCK ERROR 
S23 Melee 01403 62,158 
| Sees SHEEN 158017 ERROR : 
| $28 Sagiee OS0Ls7 oy3iz9 IMP 45 
g25q S4siz2 Oae704 OMO0S0 i$: BIT UNS, RY STEST DRIVE UNSAFE 
Size aueh7s sarees FESR 458 
a eee ee 
' ~— ow! eS 
«8 REE bss Soase2 168: BIT SSK RY STEST SEEK INCOMPLETE 
| 833 O43e20 001406 Beg sé 
| $835 OMeee2 1dso2 FSROR 3] 
| «Eee RSS BReree DOuoge” Oosu7s oe ie ee 
as Dee Sels50 178: BIT. ~—sRCOE RH STEST CYLINDER OVERFLOW 
«BSF Bu55q3 OT 4de BQ s«dLGS 
«$252 DNEeHS | Loses ERROR 32 
| 8555 Qussue OS2737 oo4ooD oos474 SIS SRCLREG, RECODE 
| 4540 ONee54 000137 043124 IMB OS7S 
654] O4s560 032704 02000 188: BIT  SIDRE,RY STEST ILLEGAL CYLINOER 
» ad Buds Borde Beg «198 
' 545 Susse6 lOson3 FRROR 33 
| B44 Oee70 052737 ooNoDO oOSH74 BIS  RCLREQ, RECODE 
S52 QUESTS GODHFZ BASIE A ose 98: YT «—sMOROT.P.DS(RS) |; TEST DRIVE OFF TRACK 
. eb ste 4 ° ‘ - ‘ 
2555 5u5315 SeTaBe Beg =s«20S 
seve Mz1e 10vces FRROR 34 
505 Ouszid 57 po4o00 oosH74 BIS SRCLREG, RECODE 
$569 O4s322 000137 043124 IMP Oa7S : 
«gE, Susace 030709 15000 208: BIT —-SDTE, RY STEST DRIVE TIMING ERROR 
| GES Ousase 001406 BEQ Ss 
S53 ‘Dusaa4 1O40De ERROR 3 
$524 fusaae OS2757 005474 BIS SABORT, RECODE 
S55 Ousse4 905137 043124 TMB , 
| 5— Quesso O3e765 1 ogoz0 218: BIT ¥OLT.P.CS2(RS) ;TEST DATA LATE 
| Be? Ouszee 001403 Beg sagas 
| $356 O4B3E0 1DNoee FAROR 36 
| gee passes Poole Osa 225: BTr SORT. RS TEST IF OPI ERROR 
| Se Bete Be? cum «S Eabremn,necone 
= «ge5 105737 003111 TStB 4 ODERCNT STEST IF FIRST ERROR 
«BEG Queue «BoT4ae Bo Ss«SOS 
| $65 048410 000137 o4z124 IMP 378 ;NO_- SKIP REPORT 
| 3e oweus4 DO0400 OOSY74 SOS: BIT BLEV2ER,RECODE TEST IF A SECOND LEVEL 2 ERROR 
G67 O4s422 01403 BEQ Sse SHAE ALREADY OCCURRED 
$58 O¥s404 [0405 275: «ERROR 4 
6565 O4e4s6 600137 043124 IMP O37 :GET OUT OF ERROR REPORT 
6270 Qus4a2 004737 044230 26$: SR PC. BLDEXH $25 BUILD EXPECTED HEADER 
a575 Basuas paerse pooae DOSH74 see ROTO cone Seer EE CERROR GETTING HOR 
| $273 O4e4s0 O01 BNE eet’ IF YES-GO MAKE SDR TATED REPORT 
«$75 Qubuss 013702 oz0z6 MOY —«RKBAS. Re tETORE HEADER O INTO REGISTERS 





a ee ee eee 


NO-12-D2REN-C - RKSt KELL /RKOR SuBSYS. VERIF. : PART MACYLI 27( 1006) 
DZREMC.F11 | O0S-OcT-76 10: REPORT ERROR ROUTINE 
| 9275 gsess— 94 909100 990909 gic ue RKCSI(RE) 
«ss Rss sibee 1806 v BRO } SREGLO 
| $278 42500 eres 090084 001206 Hoy RKDE(RE) SFE GLE 
223 RISES mf Bie 2 § : 
$28] 42516 a ERROR 30 
$282 B4eSe0 Tos 043124 ae IN zs 
Ses ae os, EER 
$286 BS % BEQ 23s 
| se82 o4es40 Boe g9004 oos474 515. sHVRCER, RECODE 
| Ui 
| $8 Res Be es 
| $350 O42554 000137? 042124 IMP 375 
| $291 0425680 032737 Oo004d0 oos474 308: 8IT #LEV2ER, RECODE 
«$262 42566 001403 BEQ 31§ 
| 3525 Susess ApcGS? guaio4 we ees 
| $295 seers ue p630 318: 138 PC BLOEN 
3 BusEDE EE S23 Boa4e0 oos74 BIT BLEV2ER, RECODE 
$298 O42614 901085 BNE 
Sess e616 51 003026 MOY Bas, R2 
| $300 O42622 42762 000150 00000 BIC SIE, RKCS1(R2) 
$301 O42630 016237 900024 O01202 MOY DB (Re), REG1O 
$252 042636 016237 000024 901204 MOV RKDB (Re); SREGII 
$303 O42644 016237 500054 001206 MOV RADE Re "$REGIO 
$204 O42652 032762 100000 o00000 BIT RKASI(Re) ; 
$305 04 001343 SNE sa 
$206 O42662 104031 ERROR 3] 
| $307 O426645 600137 043124 IMP 275 
$308 42670 104055 323: ERROR 55 
6308 042672 000137 041374 IMP ERENT 
$216 042676 000200 23$: BIT #BSE,R4 
$311 O42702 001430 BEG 33$ 
| $312 042704 052737 oooo02 oos474 eIs S8SERR E 
$213 O4e712 O16500 000030 MOV BORER RES RO 
$314 O42716 116501 000027 MOVE POF +1(R5),R1 
| $315 O42722 042701 177774 BIC Rl 
$216 O42726 916502 Oo0026 MOV pe rscre: R2 
| $317 O4e732 O4e708 177740 BIC 8177740, Re 
$318 942736 904737 037556 ISR PC, BDSREK 
$319 O42742 0327327 001000 oos474 BIT sBADSEC, RECODE 
$320 042750 OOIDES BNE 375 
$221 O42752 104104 ERROR 104 
322 042754 042737 oO0002 oO0s474 BIC 8BSERR, RECODE 
$223 042762 OOO4ED BR ? 
042764 932704 100000 23$: BIT #DCK, RY 
$325 42770 001435 BEG 
¢ 042772 37 900020 o0s474 BIS WOCKERR, RECODE 
7 043000 632704 O00100 BIT #8ECH, 
$328 04 O14 BEQ 34$ 
$225 04 000040 005474 BIS BECCNC, RECODE 
$336 043014 005037 O0l206 CLR SREGL2. 


OS-OCT-76 10:13 PAGE 174 


;RESET INTERRUPT ENABLE 
;FOR REPORTING 


; TEST IF ERROR DURING STORAGE 
;MAKE OPI REPORT 


3G0 MAKE OND LEVEL REPORT 
TEST IF HVRC ERROR 


vee". IF Pepin? ERROR 


JUMP TO URN 
Test IF A 2eND LeveL ERROR HAS ALREADY 
OCCURRED. NO-SKIP EXIT 


et OF ERROR REPORT 
ies By BUILD EXPECTED HEADER 


; TEST IF ERROR _IN GETTING HOR 

IF a ~GO mace ABREVIATED REPORT 
611 BASE ADDRESS 

;CLEAR INTERRUPT ENABLE 

:STORE OFF HEADER 


;TEST_IN ANY ERROR IN UNLOAD 
;1Y YES - GO ma SHORT REPORT 
;MAKE FULL REPORT 


s AGRE VIATED HVRC_ERROR RPORT 
:GO REPORT 2ND LEVEL ERROR 
;TEST FOR BAD SECTOR ERROR 


;NO_- SKIP 
SET ERROR FLAG 
[Go YL NO. 

GET TRACK NO. a 
;CLEAR ALL BITS EXCEPT TRACK 

IN ERROR 
‘CLE S EXCEPT SECTOR 
G0 SEE IF THIS SECTOR LISTED 


i TEe - EXIT NO. ERROR OR REPORT 
ELSE REPORT BAD BSE 
T BSE ERROR FLAG 


£65 
fest IF DATA CHECK 


; SET a CHECK ERROR IN RECOVERY CODE 
;TEST C IS HARD. IF 

; YES ser UNCOR REC TARL IN 

:RECOVERY FLAG AND IN 

:REG12 TO INDICATE UNCORRECTABLE, 


SES 


A194 


wale 





'-11 
DZREMC. 


$331 





gRgNA-C = Rk 


i 


s) 
) 


ai 
Or“er 


os-o0¢ 


SYS. VERIF. 


003036 
003034 
005474 


000012 
005474 
005474 


000001 
003036 


, MACYII 27(1006) OS-OCT=76 10:13 PAGE 175 
kebor? ertor sourines | © 


~ a 
a ne 


3A 1 IN REG 12 FOR CORRECTABLE 


AB Sk iF PERRI ERROR 


qSR PKAD RROR 
MOV Pesce Be), sREGIO “Tgfone. eee ECC poet teen's © 8 
MOV B° EPAT(RS)$REGI1 :PATTERN 
ERROR :REPORT DCK ERROR 
363: ert BAC, P.CS2(RS) Test WRITE CHECK ERROR 
BIC BABORT,RECODE  ;CLEAR ABORT 8 ser WeITE 
Ie suCERR, RECODE CHECK Pe IN RE 
1518 gRCN FIRS ERESR 
JSR PC. GTPKAD $60 SET SORES OF ERROR 
ERROR 33 SREPORT WCE 
378: BIT amaen ioeatcnds TEST HARD ERROR 
BE 435 
ERROR 36 
BIS BABORT , RECODE 
43$: eI SDRVOSC, P. PRST(RS) TEST STATUS CHANGE NOT CLEARED 
ERROR 37 
BIS BABORT , RECODE 


44S: Bir thie ;IFST ATTENTION BUT NO FAULT OR DSC 


40 
BIS SABORT , RECODE 
4€§: BIT SUEXATT,P.PRST(RS) ; TEST UNEXPECTED ATTENTION 
ALLTRM 


42 
BIS #ABORT , RECODE 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 


ALLTRM: MOV #PARMO, RS “RESTORE PARAMETER BLOCK SELECTION 
MOV BERRHDL,A.ABNL RESTORE INTERRUPT VECTORS FOR RETR 
MOV BERRERE A.NORM :DRIVER OPERATIONS, IF ANY 
BIT SABORT,RECODE IF ABORT IS NOT SET AND 
BNE 48S ite DRIVE us READY (HAS NOT 
MOV RKBAS, Re GET BASE ADDR Es 
SIT #ROY,RKDS(RE)  :TEST IF DRIVE READY SET 
BNE 47§ *RECALIBRATE REQUIRED BIT IS SET 
gis BEGORT , RECODE “ELSE ABORT WITH ABORT MESSAGE 
47S: IT eRCLREG, RECODE CALIBRATE Is REQUIRED 
EQ BGNRTY i2ER ETRY SET UP PARAM 


MOVE #RECAL,P.CMND  ;BLOCK TO DO IT. 
MOV BRETANL, A. ABNL 


ee 


SES 0174 





RKO SUBSYS. 
. a6 10:03 
o4 thes 
See Lee Ee ae 
1415 
Rd ? 
04 


000200 00S474 


041374 


003116 


Saai33 012542 


$408 


o0s474 
005474 


(OU C00 OMT COP OD 
4 
- 
& 


o0s474 
003117 


001i74 
00S474 


Bee ae ee de De ee Be ee ee 


00000: 


177776 


OOO EEEOEOEOEEOEOEOEOEOEOEEEOOEOEeeeeeewrw aE eee aa ae ee 


VERIF. 


: PART MACY11 27( 1006) 
REPORT ERROR ROUTINE 
a PC gOnvcre, 
i hoes Renee 
Mm oO 
ER2ENT 
48$: ERROR 61 


05-OCT-76 


HIF aN ERROR OCCURRED IN THE 


Pein Tee FECA ay grr MESSAGE, AND 


;REPORT ABORT-RETRY FAILED 


10:13 PAGE 176 SES 0175 


PROGRAM WILL HALT HERE IF THE ABORT FLAG HAS SEEN SET OR 


; THE 
IF THE DRIVE READY BIT IS RESET. 


HLTPRG: 
ssc 
IMP CMSTRT 


;CLEAR ERROR COUNT 
;RESET ALL DEVICES 


; THE A scr ne Oe uty, THE RETEY 7 IF ae DATA TYPE ERRO 


HAS OC 
: a a FOR RE 


: D HERE 
;FLAG I 
BGNRTY: BIT 
BEQ 
93: BIS BANYDER , RECODE 
BR 23 
33: 
TSTB NORTRY 
BNE : 
BIT SBADSEC , RECODE 
SNE 2$ 
CMPB =—- ERRCNT, ERRLT 
BNE 1$ 
CLR SREGS 
MOVE  ERRCNT, SREGS 
ERROR 102 
BIS #ABORT, RECODE 
BR HL TPRG 
1S: OV RKBAS Re : 
MOVB  #SUBCLR P. crno cree 
JSR PC, DRVCAL 


MOV #PARMO,R 
MOV #PRO, JRPSW 


% ISR PC, DRYCAL 
™ age " PC 


ae ae + 


ay 
TRY a Dveuccessrit tf 


SBSERR! HVRCER! OPIERR! OCKERR!WCERR,RECODE ; 


2-4 eee RETURNS TO 
4 arrEMeis, OTE ABORT 


TEST IF ANY DATA ERROR 


;SEE_IF “NO-RETRY” FLAG SET 


38 YES 
; TEST IF BAD aac lor FLAG SET 
IF YES-EXIT TO R 

;BEGIN RETRY IF ERROR COUNT HAS 
:NOT BEEN EXCEEDED 


;GET ERROR RETRY COUNT 
: REPORT mee ULESSFUL 
SET ABORT & QUIT 


GET RK BASE ADDRESS 
onal TO CLEAR SUBSYSTEM 


THE COMMAND 


;GQ AND RE P PBL ISH 
AS IT Was ENTERED INTO THE 
:PARAMETER BLOCK 


CELE DRIV at TO ALLOW INTERRUPT 


F RET oR RTs HERE, NO ERROR 
ite. RED, RECOVERY WAS SUCCESSFUL 








meade 


S443 
3444 


LLLLL PPL OLS 
ABB ded Natal Baines 


S481 


DZREN-C - nes $25 RE 
Fil 


043750 
043750 


os 


OVOVOVOVOO000OOr- 


104407 


H14 


pre Rae (S. VERIF, ; PART MACY11 27(1006) O5-G°T-76 10:13 PAGE i77 


000100 


002000 
000040 


002620 


003113 RETANL: 
BOS474 


REPORT ERROR ROUTINE 


8377, DONE :SET DONE 
SLEVCER,RECODE SET LEVEL TWO ERROR 


BISB 
BIS 
Biea PC 
003113 RETNML: 8I $377, DONE ;SET DONE 
RTS PC 


000001 
000014 
005474 


: egg rae gtr tar geraeaneste eran ero mamas 
TTL ue ok PROCESSOR ROUTINE 
Hee. R Ah ewe THE PRROR HANDLER BY PROCESSING TIME OUT STATUS 


osadedanenanakecsnibansetidienidsidsiinienntiabesemaisiteianianntbieaesial 


thproc 


SAVREG 
MOV RKBAS, Re 
MOV #SREGS, Ri :SET UP R1 FOR RK oREGISTER STORAGE 
MOV RKCS1 (RE), (R 1)+ STORE ALL VALID RKE11 
MOV RKCS2(R2)’(R the REGISTERS 
MOV RKDC(R2), (R1)+ 
MOV BKDA (RS) (RL) 
MOV RKWC (RE), (R1)+ 
v RKBA( RE)’ (R1)+ 
MOV RKASOF (RE), (R1)+ 
MOV RKDS(Re), (R1)+ 
MOV RKER(RE);(R1)+ 
CLR RG sTHIS CODE WILL ATTEMPT TO 
;RETRIEVE THE STATUS FROM THE 
MOV SET ‘ie TO USE PAR 
MOVB sRoerat™ B. CMND(RS) ;00 READ DRIVE etarus COMMAND 
ISR Pc. OR CALL 
BIT echOTO, P.PRST(RSS ; rest FOR TIMEOUT 
BIS | pies RECODE NO = Bk THO IF IMEOUTS F 
ADD #P. ADD, RS BUMP RS 19 POINT 15 Mea tve STATUS 
MOV (RS)+, {R1)+ :MOVE ALL THE DRIVE STATUS INTO THE 
MOV (RS)+! (R1)+ :TEMP REGS FOR REPORTING. 
MOV (RE}+)(R1)+ 
MOV (R5)+) (R1)+ 
MOV (R5)+) (RI }+ 
MOV (R5)+) (RI)+ 
MOV (RS)+; (RI )+ 
MOV (RS)+, (R1)+ 
MOV 8PARMO, RS ;RESTORE PARM 0 
RESREG ” 


: = REXEKERELEE FFL EEAARASAARES SR EERE LL LEAKE FSAAASERSRSRERRASSFSLERRE 
"SBTTL READ HEADER O ROUTINE 
SESESESESESES SASS TERA EE RE RES EEN ERER ESTER CURES OEENCEEERSEONES 


bAuoO 
SAVREG 


SES C176 





MD-LI-DZREN-C - RKG1I/RKDS SUBSYS. VERIF. : MACY11 27(1006) OS-OCT-76 10:13 PAGE 178 SEQ 0177 
D2REMC.F11 05-OCT-76 10:03 Reap” READER C ROUTINE 
9493 043752 916801 o00026 NOV P-OTS(RS).Ri : STORE TRACK BND SECTOR 
Ean pares sega PPRRRS ue BieboLo RO ie HE tee Aoi. CLEAF 
4 ase RO :OFF UNUSED SITS AND POSITION 
8503 043770 006200 aSR RO : FOR AS THE DESIRED 
8504 043772 006200 ase RO ;CYLINOER IN THE READ 
8505 043774 asR RO 
3508 o4s776 012705 002704 MOV WPARML RE ISET U USE P.8. 
8507 944 019165 oo0004 MOV R1,P.SECT(RS) HINER Tre SECT FOR 1 EAD HOR 
$508 O44006 510065 900002 MOV RO'P.CYLN(RS) 
9509 o440l2 130737 000020 003115 SITB a3. CFT, FORMAT Hest PRESENT FMT AND CHANGE IT 
9510 4020 001404 BEG 1$ A Ecib SF aetr THis” WILL CAUSE 
9511 142765 00020 000007 BICB #8. CFMT,P. osincréy sA READ 0 0 HOR ON 
$512 044030 O00403 8R “THE RE 
8513 O44032 152765 o00020 opoo07 1s: BISB 88.CFMT, P. CSIHCRE) 
35:4 O44040 119765 000125 000001 2$: MOVE § sRDHEAD CROCS sSET READ HDR COMMAND 
9515 O44046 015737 000000 177776 MOV #PRO sye5i ALLOW INTERRUPTS 
318 O440S4 004737 037662 JSR PC, 
351 My 142765 000029 000007 BICBOségB BENy B. naaaceit’ “CLEAR THE FORMAT BIT 
9518 O4406— 153765 093115 000007 BISB FORMAT,P.CSIH(RS) jRESTORE TY TYPE GND FMT IN USE 
3513 gas 012705 o02620 MOY 8PARMO; RS Ee .B. 6 ADDRESS 
100 104410 RESREG SRESTORE RO-RS 
| 9621 O44102 o00207 RTS PC : RETU 
| 3522 
3523 
| 9534 
$s2s 3 = SELES KFSAELA SAA LA RE RAHERE LALA LA SEAS RALE ARE LRRALFA LEA LEARLLRELEF 
9526 SSETTL GET PACK ADDRESS ROUTINE 
} $527 TL tg gate Sah tr get gr a oS mgt tt uni nas i 
| @&38 o44104 916537 o00030 001174 &tPKAD: MOV P.DCYL(RS),$REGS ;GET CYLINDER NUMBER 
_ $629 O441l2 905037 001176 CLR SR EGE : LEAR AR REGISTERS FOR 
| -€e3, Bautse Srees> BORBS? gay 209 Site | BPE Sl nc) grec? STORE SHE FROCK OND SECTOR 
ae55 Baa S85 {iB2s5 BopSES 001176 MOVE  P.DT Stl (RS), SREGE 
| 9533 044136 005737 001200 TST $REG7 ADJUST THE ADDRESS CONTAINED IN 
| fe 8 K_REGISTERS FOR THE AUTOMATIC 
«Be ESS BAF coe ew ne 
| $537 O441S0 O00426 BR 
9838 O44152 032765 010000 cOodd1e 1S: BIT SCFMT,P.CSI(RS)’ 
| 9539 O44160 001404 BEQ 
S540 O44162 012737 000023 001200 MOV #19. , SREG7 
| 9841 044170 900403 BR 
S642 044172 012737 oo002eS o012e00 2s: MOV #21. , $REG7 
| 9843 O44200 005737 001176 _ 38: TST SREGE 
9544 044204 001403 BEQ 
— «9845 O44206 005337 001176 DEC SREG 
| $846 44212 900405 BR 
$647 044214 612737 oonD0e oOO1176 4S: MOV #2, SREGE 
$648 O44222 905337 001174 DEC SREGS 
«SHS ~O4se2E 000207 cs: RTS Po 
3650 
965) 
3652 
$s53 © ELLE RSEELE SHER SEALE EEE LERE REE R REELS SFE ERE LSE RSERERERE RESALES 


$55 ‘STL BUILD EXPECTED HEADER 








in? SUBSYS. VERIF. 
10:03 








: MACY11 27( 1006) 
uti PEXPECTED HEADER 


;#USES DESIRED CYLINDER TRACK AND SECTOR REGISTERS TO DETERMINE 
‘eh cH HEACER Wa Baas EXPECTED. LOADS EXPECTED VALUES IN $REGS, &, AND 
Coy rer ecan eanreaREN 


ithe 


OS-OCT-76 10:13 PAGE 179 


Hoy -DCYL (RS) ,SREGS_j CONSTRUCT EXPECTED HOR 

MOV a iscRs) yA :DEstRED DCYLINQER § DESIRED TRACK 
RRO ENB SECTOR: SHIFT THE TRACK 

ASR RL ZOVER TO CONFORM TO HEADER FORMAT 
ASR RL i CHECK THE FORMAT BIT. AND 


;1F SET, SET THE HEADER FORMAT 
MOV P.OTS(RS) SREGS :BIT. 
BIC 877740 SREGE CLEAR ALL BUT SECTOR 


Cae TRACK AND SECTOR TOGETHER 
ei acehT, P?CSICRS) 

238: NOV ule Sree? 
f  Shece’ sec? 
SRE CE 

Ri seer} 


RTs PC 





;COMPUTE THE HEADER VRC 





pao ee 





eS 


MD- 

- 
eco 
~~ 


ee 
3 


9610 


Peat tat eat ont tad bad ad oat tad bad 
TUTUTU b&b 8 bt 
Me19.00 NO Ul £ Gore 


ati 
tf 


PAPI 
ttt 
$e2 
WIIG) 
Ree 


9627 O44364 
9628 366 
3623 044372 
9630 


—_— ~~ 


-DZREMN-C - RKELI /RKOG 
a 


T-76 10:03 


1 
005337 
001016 


177775" 


003046 


003050 
003070 


003032 
003026 
003104 


SussYS. 


O03046 


177776 


VERIF. 


: PART MACY11 27(1006) OS-OCT-76 10: 13 PAGE 1 
RKELL/ ROE UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS ‘REV. 0.08) 


SPTTL RKBII/RKOG UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REY. 0.08) 

s#CQPYRIGHT (¢) 1975 

t=" = SITAL EQUIPMENT CORP. 

MAYNARD, 1754 

: #ALITHOR: ROY. SPITZER 

SBTTL  #*WATCH-DOG TIMER 

se  SPESESSARALSLASLSAA SAAS LSA RA AASLASELASEAELERELAALALLSELRFERAALLSESS 
WATCH-DCS TIMER DOES A PSEUDO-TIMING OF RKO& UNIBUS 

SUSY en 8s sth EE one EN not ~CURRENTE e Tea e 
AL-TIME CLOCK iar KWI11-L 

NILLI-SECOND | EACHES TER 


fens a he hate The Hehe ate a 


he Ay KEPT IN THE TABL 


ave ae ne 
THe ~out WILL Be BES! GNA ED IN THE PROGRAM Bevice "STA US 
REGISTER OF THAT DRIVE’S PARAMETER BLOCK. 


~ 

- 

- 

:# 

;# 

:# 

oi 

;# 

;% 

:* 

# 

3% 

3% 

:# THE DRIVER WILL ae jis LOCATION W. pe AS THE NUMBER 
:* OF gets wnat UNLOAD OR START SPINDLE COMMAND. 
:# THE DRIVER WILL Use THE LOCATION W.SEC AS THE TIME 
i% COMMANDS . 
:% 

:# 

ot 

3% 

3 

% 

.# 

:# 

se 

;# 

:% 

3% 


‘ 
‘ 
, 
‘ 
s 


LIMIT FOR ALL OTHER 


FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL 
WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
OPERATIONS ONLY ONE OPERATION WILL SE WATCHED. 


i PC, W.WTCH 
RETU IF NO ORIVE ORDER EXCEEDED ITS TIME LIMIT 


OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADDRESS 
BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG 

IN THE PROGRAM DEVICE STATUS REGISTER OF THE 
APPROPRIATE PARAMETER BLOCK WILL BE SET. 


© KLLLELE RELA REALL KAKA ESA EE SALA KALA KALE REAAL ELA EERE REL RRAETEE 


a 


® 
: 
‘ 
° 
a 
. 
‘ 
s 
; 
’ 
. 
4 
, 
° 
, 
’ 
“ 
, 
4 
4 
: 


W.WTCH: MOV RS,-(SP) ;SAVE RS ON THE STACK 
MOV HE CK 


R4?-(5P) ‘SAVE R4 ON THE STA 
MOV R3/-(5P) ;SAVE R3 ON THE STACK 

MOV R2'-(5P) SAVE Re ON STACK 

MOV ps’-(SP) SAVE PROGRAM STATUS WORD ON STACK 
DEC W.MTIM : DECRENENT MILLISECOND TIMER 

BNE 203 IF NOT ZERO RETURN 

MOV Wo MILI, W.MTIM ;REINITIALIZE MILLISECOND TIMER 
TSTB Ss WW TIME ;CHECK IF ORIVE IS BEING TIMED 

BEQ 20$ ETURN 

MOV RKPRI,PS ‘LOCK OUT RKO& INTERRUPTS 

MOV RKBAS, R2 :LOAD BASE OF RKO REGISTERS 

DEC W. DRY ‘DECREMENT COMMAND TIMER 


BNE 50 O$ RETURN IF NO TIME OUT 
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DOZREMC.P11 OS-0CT-76 10:03 #WATCH-DOG TIMER 


S638 044434 105037 003070 CLRB sd. TIME sRESET TIMING INDICATOR 

233 C4440 A735a¢ 003102 MOV PaLKT. RS LORD A ADO se 10 LeE en BLOCK 
9641 o44444 OS2765 000100 ocodo14 BIS RIO, PASTAS) :SET COMMAND TIME OUT 

eH O444s2 020537 903044 SMP RS, 0. WAIT sch IF DRIVER RI WAITING FOR 
9644 o444ss 001002 BNE S$ =NO. DO Nor AL TER WAITING FOR 
S645 ; EOHMAND COMPLETION 

S646 O44460 005027 003044 CLR O.WAIT :CLEAR WAIT FOR ONRND COMPLETION 
9647 O444e4 004737 047740 S$: JSR PCR. ABNL :BRANCH TO ERROR ROUTINE 

S648 044470 012637 177776 20$: MOV (SP)+,PS !RESTORE PSH 

9649 O44474 Q1l2602 MOV.  (5P)+_R2 RESTORE R2 

S650 44476 gige03 V (5P)+'R3 RESTORE Ra 

$65] 604 MOV (5P)+°R4 RESTORE RY 

9652 O44502 012605 MOV (5P)4'RS RESTO 


$653 O44S504 000207 RTS 





- 72 nn mms 


MO-11-DZREN-C - RK611/RKO6 SUBSYS. VERIF. : PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE ig2 SEG 0181 


DZREMC.F11  OS-OCT-76 10:03 #RKO& INTERRUPT SERVICE ROUTINE 
se54 “SPTTL #RKOS INTERRUPT SERVICE ROUTINE 
apes . ee ee ee ae ee te 
358 i THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 
3660 :% UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
61 i PERFORM ONE OF THE FOLLOWING SERVICES: 
3662 :# 1.) SERVICE PORT WAS SEIZED BY OTHER PORT 
S664 :% 2.) SERVICE DRIVER IS WAIT FOR COMMAND COMPLETION 
3665 i 3.) SERVICE POSITIONING COMPLETION 
S656 * .) REQUEUE COMMAND IF DRIVE WAS RELEASED 
3667 # FOR THE QUEUED RKO& DRIVER. 
3668 x S.) IF NO SERVICE IS REQUIRED, THE COMMAND WILL BE ISSUED 
3683 + FOR THE QUEUED RKOS DRIVER. 
¢ . 
9671 te THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM. 
278 :% THEY ARE: 
‘ 2% 
9674 * 1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
9675 x 2.) A.ABNL ADDRESS OF ABNORMAL RETURN CUNSUCESSFUL COMPLETION OF COMMAND) 
2678 3 3.) A.CONT ADDRESS OF CONTROL ERROR RETUR 
9678 1% FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS/@F THE APPROPRIATE 
3673 i PARAMETER BLOCK WILL BE IN RS. 
9681 :* FOR THE CONTROLLER ERROR RETURN, THE Location .. CONT CONTAINS 
a8 i THE REASON FOR THE CONTRO!.LER ERROR. 
scoy :% ROUTINES USED: 
sees :# C.OPT (QUEUED ONLY) 
SEg6 :# Q.PUSH (QUEUED ONLY) 
9687 :# Q.RMOV (QUEUED ONLY) 
368¢ * R.CONT (SEQUENTIAL ONLY) 
3685 1% R.NORM (SEQUENTIAL ONLY) 
9690 x R.ABNL (SEQUENTIAL ONLY) 
3691 : I.CSTS 
9692 1% 1.STAT 
9693 tk 1. 1SSU 
3 tx I.CCLR 
~~ ;* 
eres 2.3 SHS LLL ALA K KALA RAKE RAKES EEK EE SARAH RA AE RE RARER RHAARAAERESELEEE 
9698 O44S0E o1os4E I. INTR: MOV RS,-(SP) :STORE RS ON THE STACK 
9699 O44510 O10454E MOV R4;-(5P) :STORE R4 ON THE STACK 
$700 Siz O10346 MOV R3,-(SP) STORE R3 ON THE STACK 
$701 O44514 O10246 MOV —s- Re. - (SP) :STORE Re ON THE STACK 
9702 O44516 O10l4e MOV RI; -(SP) sSTORE RI ON T STACK 
$703 O44520 010046 MOV RO. -(SP) :STORE RO ON THE STA 
9704 O44522 013702 003026 MOV RKBAS. Re “LOAD Re TO ADDRESS RKOG REGISTER 
$705 O44526 016237 000010 092772 MOV RKCS2t Re), T.cS2 ; STORE ¢se 
9708 044534 032737 001000 002772 BIT #MDS,T.CSe2 ;CHECK IF MULTIPLE DRIVE SELECT 
9707 oH 42 001407 BEQ 1$ NO CONTINUE PROCESSING 
9708 O44544 052737 100000 oDz042 BIS #£ .MDS,E.CONT Crt MULTIPLE DRIVE SELECT 


9703 O44SS2 004737 047764 JSR PC, R. CONT REPORT ERROR 
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DZREMC.P11 OS-OCT-7& 10:03 *RKOE INTERRUPT SERVICE ROUTINE 
#710 O44SSE 000137 O46736 IMP I. RTRN : RETURN 
9712 62 105737 003064 18: TSTB~—s I. SRL ; CHECK IF INTERRUPT OR RELEASE 
9713 O44566 001410 BEQ 6$ :N K I RIVE AVAILABLE 
8714 O44570 1004u3 BMI c$ * CHECK If RELEA AND 
9715 O44572 105037 003064 CLRB Es. SRL YES CLEAR 
3718 o44576 000473 BR 1.100 CONTINUE PROCESSING INTERRUPT 
8718 o44600 105037 003064 S$: CLRB «ST. ISRL EAR 
Ta O44604 000137 pee IMP 1. ATTN $e BR of ee DRIVE ATTENTIONS 
721 044610 0327°7 010400 002772 6&8: BIT WNEDIUFE,T.CS2 CHECK FOR NON-EXISTENT DRIVE OR 
? UNIT FIELD ERROR 
722 O44616 001413 BEQ 7§ NO WAIT FOR DUAL ACCESS INTERRUPT 
724 044620 013704 092772 MOV vcs RY :LOAD RY FOR ORI VE NUMSER 
$725 044654 042704 1 BIC ##C<DRVMSK>,R4Y KEEP DRIVE 
$726 O44630 013705 9003102 MOV PBLKT.RS +STORE SANAMETER BLOCK ADDRESS 
8727 044634 016237 000090 002770 MOV RKCS1(R2),T.CS1 LOAD TEMPORARY CSI FOR STATUS REPORT 
a7e8 O44642 000137 045130 IMP 1. ERRC REPORT ERR 
8730 O44846 016237 O00012 003010 7S: MOY RKDS(R2),T.DS  ;STORE STATUS REGISTER FOR COMPARISON 
731 O44654 032737 000001 003010 BIT #DRA,T.D5 hy DRIVE SEIZED BY OTHER 
3733 O44662 001041 BNE 1.100 =NO, CONTINUE PROCESSING INTERRUPT 
| 9735 “CHECK IF ANY DATA TRANSFER ERROR EXISTS 
a3 O4Y4E64 032737 164000 o0e772 IT #DLT!WCE!UPE!NEM, T.CS2 
| 9738 o44672 001007 BNE 10 s INDICATE ERROR 
2733 044674 016237 000014 903006 MOV RKER(R2),T.ER  :STORE ERROR REGISTER 
| o74i : CHECK FOR DATA TRANSFER ERROR TYPE ERROR 
ae O44702 032737 125700 003006 BIT #OCK! OPI! WLE! COE!HVRC!BSE!ECH, T.ER 
anid 044710 001407 BEQ 118 :NO, WAIT FOR RELEASE OF RKO DRIVE 
S746 O44712 052737 000010 oO03042 19%: BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
$747 044720 004737 047764 ISR PCR. CONT ‘REPORT ERROR 
are 044724 000137 046736 IMP I.RTRN RESTORE REGISTERS 
| $750 O44730 105037 003070 11$:  CLRB  W.TIME sRESET TIMING ON THIS DRIVE 
| $751 044734 605037 003104 CLR W. DRY : ; CLEAR TIMING COUNT FOR THIS DRIVE 
| s75e 044740 013705 00210e MOV PELKT,RS : LOAD RS _MITH PARAMETER BLOCK 
| 9754 O44744 052765 010000 000014 BIS sonvsz0,.pnsTiRb) § -SET DRIVE SEIZED IN THE 
9755 PRO ROGRAN DRIVE STATUS REGISTER 
| $756 o44752 005037 003044 CLR 0. WAIT : CLEAR AIT FOR COMMAND COMPLETION 
| 9757 O4475— 004737 047740 JSR Pe. R. ABNL : INDICATE ABNORMAL TERMINATION 
| 3758 044762 000137 0467236 IMP 1. RTRN :GO RESTORE REGISTERS _ 
| 7E0 O447B— 013705 003044 1.100: MOV 0.WAIT,RS ;LOAD PARAMETER BLOCK ADDRESS INTO RS 
«98761 «044772 O0l002 BNE 2g :IS COMMAND WAITING PROCESSING 
«8762 e : YES, DO PROCESSING 
| 2753 044774 000137 o45720 IMP 1.ATTN :NO, PROCESS ATTENTION 


4 
9765 O4S5000 013704 002772 es: MOV T.CS2,R4 ;STORE RKCS2 FOR DRIVE NUNBER 


é 


MO-LI-DIREN-C - PKEII AKOE SUESYS. VERIF. 
OORSPC.P11 | OS-Oct-76 10:03 

S7pe  o4S008 o42704 177770 

$768 

Pe rane igs mo 

Q77] Bwee"e 4000 

S772 SMEicc TEEPEE coo1e4 000001 28: 
oe RES BES oan 

-- oo ow’ 

677— gusoq4 905037 003044 108: 
ce pene Bey Bin 

2o5§ Sle8E5 ATES RES noone 
SS At lai 

(Se 

0 & 003 

see Suesse 48e5 SBGRIE Speke 
ges Site Slo 

See Batiia. Secike Buse 

$788 O4S114 oS27%6S 000010 o00014 15S: 
2753 1 737 O474OE 1. ERRA: 
aoa; Baeitc Shouse 

23 $130 213765 goe779 o0001e 1. ERRC: 
97a5 Bub] 36 4 

fe Eis ie Bee omg 
6797 4556 Bosca? 46764 

i: RSETES Fa85z8 010400 o000e0 
9601 172 001 

174 537 o47512 

Se REL Gay ow 

secs Susete lie737 oS 002770 
S605 1 4027 047036 

gers Buesic $38739 poso7: cos00s 
dete baesee Ae4n 

Hos OSee6 062737 coed N0R0N2 

861i 0452324 004737 047764 

Hie OvSe40 000137 OME? 2 

zis puseus o3e727 040000 002014 2S: 
a1 E254 oeeres sone O14 
Sie D657 Geidey CS ROE 3S: 
9619 Ouse72 po2000 coz042 
6626 737 047764 

$221 O45304 000137 O46736 


' 
' 


: PART | 


aRKDE INTERRUPT SE cEnbice. ROUTINE 
erc 


7.1006) OS-OCT-7& 10:13 PAGE 164 


ree gaptewe seb ;MASK OUT UNNECESSARY SITS 


P.DRVN(PS),R4 CHECK IF _ORIVE NUMBER IS EXPECTED 
33 :YES, CON"! 
*NO, DRIVER ERROR 
SROALHD,P.CMND(RS) :CHECK IF READ ALL HEADERS 
10$ [NO, EXECUTE NORMAL DATA TRANSFER 
I. DAL :GO EXECUTE SPECIAL HEADER SEQUENCE 
0. walt scLEAR BR WAIT FOR FOR CgMMaND COMPLETION 
W. TIME ‘peers TIMING on Byk 
RKCSI(R2),7.CS1 3ST ATUS ‘Fes ISTER 1} 
acERR 7.081 CHECK IF F Cotte RROR 
1 Ea ne i asch Seton's 
INTHSK, T. Aker st chk ECK TE OnTve ay at NTION SET 
BER. NORM peter OBE TURN 
I. RTRN STORE REGISTERS 
SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 
PC, 1.CST 3ST ONTROLLER STATUS 
TERR -_ : SRE ATTERN AND POSITION INFORMATION 


M. * ‘on SE BEER OF F CONTROLLER STATUS 
mut CPT (Re), P, Be ;STORE ECC PATTERN 


KECPS(RE) Pp. :STORE ECC POST TION 
1.CCLR E6R CONT ROLLER 
a yo s HECK ae WAS NON-EXISTENT DRIVE OR 
, UNIT TEIELD ER RROR 
BS. 1.staT shear aor ive STATUS 
#OR.CLR.T.CS1 COMMAND 
0,7.1s$u i DRIVE CLEAR 
ERROR RETURN 


INTMSK, T. ASOF +1 : CHECK IF ATTENTION RESET 
INDICATE DRIVE ERROR 
8. CLAT,E.CONT Set BTTENT ION DID NOT RESET 


WITH CL 
PC,R.CONT REPORT CONTROLLER ERROR 
1. RTRN :GO RESTORE REGISTERS 


#S.0SC,7T.MRe ;CHECK IF DRIVE STATUS CHANGE CLEARED 


FeRVOSC P at te¥ Bc OID NOT CLEAR 
8S.PAR,T.MR3 ;CHECK IF DRIVE PARITY ERROR 
:NO INO TE RENORMAL 


ICA TERMINATION 
#E.DPAR,E.CONT ;SET DRIVE PARITY 

R.CONT +E eRtES conTaoN LER ROR ROR 
1. RTRN RETURN 
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@RKDE INTERRUPT “Savic ROUTINE 


S$: ie rn VHRO, P, Igoe * iM OTe apna® ERROR 


17 a5.P IPT. Re the IF S CYCLING DOWN 
369 i REPOR 
BIS BE. UNID,P. wpastins) *SET DRIVE UNLOADING 


v8 INTHSe a tine ;SEt UP & SECONDS FOR DRIVE TO CYCLE UP 
me ESRTRN” ;G0 RESTORE REGISTERS 


10$: JSR PC, R. ABNL :G0 REPORT ERROR 
séP 1. RTRN :G0 RESTORE REGISTERS 


TTL #READ ALL HEADERS INTERRUPT SEQUENCE 
T.HDAL: MOV RKCS1(R2),7.CS1 sSTON CS1 TO CHECK CONTROLLES 


BIT aCERR,T.CS1 Some K F CONTROLLER ERROR 
Q c$ NO, CHECK FOR ATTENTION 
cur O.WAIT :CLEAR WAITING FOR COMMAND COMPLETE 
CLAS sé TIME :RESET TIMING ON DRIVE 
clr W.ORV :CLEQR TIME OUT COUN 
MOV T.CS1.P.CS1(RS) ‘et ERROR RKCS1 
ISR pc, Test TORE CONTROLLER REGISTERS 
rR RO;I.CCLR Ba ¢ TROLLER 
1_RTRN if on RETURN 
35R PCR. ABNL NDICATE ERROR RETURN 
IMP 1. RTRN :RESTORE REGISTERS 
S$: MOV RKASOF (RS). 7. ASOF NTION SUMMARY 
SITS INTMSK,T.ASOF+] check feo DRIVE ATTENTION IS SET 
BE rh} cK a HEADERS 
CLR 0. WAIT iN, ane WAITING FOR COMMAND COMPLETION 
€LRB so. TIME “RESET TIMING on DRIVE 
CLR H. DRv :CLEAR TIME OUT COUNT 
IMP 1.ERRA :60 REPORT ERROR 
7S: MOV HDR. AD, RI ;GET MAIN MEMORY RODRESS 
MOV RKDB(RS), (R1)+ :GET FIRST WORD OF HE 
MOV RKDB(R2);(R1)+ GET SECOND WORD OF SEEDER 
MOV RKDB(RE)’(R1)+ :GET THIRD WORD OF R 
MOV R1, HOR. AD : STORE ROORESS F T HE 
MOV RK ose (Re) T.CS2 :STORE CS2 TO CHECK FOR DATA Rate 
BIT sOLT,7.¢S2 :CHECK FOR DATA L 
ONE 355 :YES, REPORT E 
DEC HOR. CT : DECREMEN ADER YET TO READ 
BNE 25 TF NON-ZERO "rScue NEXT READ HE 
CLA 0. WAIT : CLEAR DRIVER WAITING FOR COMMAND COMPLETION 
CLR W. ORV :CLEAR TIME OUT COUNT FOR witis DRIVE 
CLR 3s. TIME CLEAR i WATCH 00G TIME ON THIS ORIVE 
MOV #3 RKNRL (R2) LORD MA INTENANCE REGISTER FOR SECTOR COUNT 
MOVB asDR.SEL.7.CS1 ir bap SELECT COMMAND 
ISR RO,1.1SSu :GET SECTOR COUNT 
1. RTRN ‘ERROR RETURN 
MOV LORD SECTOR COUNT 





eas 


SASSER ERS 
LOD NOU © lotue- 


i 


: 


8 


wo 
wo 
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. Si 
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Pll 05-OCT-76 10:03 #REGQU ALL HEADERS ‘INTERRUPT SEQUENCE 
o8ss22 O047E7 OSNTTS2 IGR PC, R.NORM : 2NOICA TE NORMAL TERMINATION 
OMS62¢ 500137 OMe73 Ie 1. RTRN :RESTORE REGISTERS 
o1ssé2 000 0020 258: MOV P. (RS) RKDCYL(R2) ; NDER ROORESS REGISTER 
RieEcs bié5e2 sleied si a MOV B-gzhhie }BKbE Rs) “L OE Peace ses 
OMSé4— 116565 900007 900017 MOVB  F.CSIH(RS)'P.CS141(R5) ; sSTORE ie 2S 8-15 OF CS1 
OMSéS4 O427E5 165777 OO000lE BIC BiCCCOTECEAT) ,P.CSICRS) + CLEGR ALL Bite EXCEPT FORMAT AND 
112765 000125 900016 VB BROHEAD P.CS1( RS) + STORE COMMAND ISSUED 
016S62e 900016 000000 MOV P.CS1( RS), RKCS1(R2) SUE READ HEADER 
000137 946736 IMP I. RTRN :RE eccrine REGISTERS 
$5273? ooo4soo ooo3042 358: Is FE Reh E.CONT  ;SET pera LATE WHILE UNLOADING HEADES 
737 (OS? 765 ISR R.CONT :REPORT ERROR 
000137 d4s73 IMP :RESTORE REGISTERS 


-S8TTL #DRIVE ATTENTION SCANNER 
016237 000000 002770 I.ATTN: MOV RKCS1(R2},7.CS1 STORE A ata AND STATUS 


REGISTER 1 FOR COMPARISON 
S726 932737 100000 002770 BIT aCERR,T.CS1 i CHECK IF CONTROL ER ERROR OCCURRED 
O45734 001441 BEG S$ . CHECK IF ATTENTION 
;CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS 
O4S73& 032737 164000 902772 BIT SOLT!WCE!UPE' NEM, T.CS2 
o45744 901007 SNE 1$ s INDICATE ERROR 
045746 016237 000014 903006 MOV RKER(R2),T.ER  ;STORE ERROR REGISTER 
: CHECK FOR DATA TRANSFER ERROR TYPE 
O4S754 032737 125700 003006 SIT #OCK! OPI! WLE!COETHVRC!BSE'ECH, T.ER 
O4S762 001407 BEG 28 :NO DATA TRANSFER ERROR 
045764 052727 o00010 00304 : BIS 8E.UDAT.E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
O4E772 OOS737 0477 oy 762 ss PC". CONT :REPORT ERROR 
045776 000137 O46736 IMP 1. RTRN ?RESTORE REGISTERS 
O46002 013704 002772 28: MOV T.cS2,R4 ;SAVE CS2 FOR REGISTER NUMBER 
046006 042704 177770 BIC BiC<DRYMSK>,R4 STRIP OFF JUNK 
O46012 105037 003070 CLRB =o. TIME :CLEAR WATCH BOG TIMER 
O4E016 003104 CLR W. ORY ?RESET TIMER VALUE 
O4e02e2 312705 O0310e MOV PBLKT,RS STORE PARAMETER BLOCK ADORESS IN RS 
; CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 
: IN PROGRAM DEVICE STATUS REGISTER 
OYE026 O427E5 OO000E 900014 Bic #ORVPOS! DRVPDT ,P.PRST(RS) 
046034 000137 045120 IMP 1. ERRC :GQ REPORT ERROR 
O4E040 022737 O40000 002770 Ss: BIT #0I,7.CS1 :CHECK IF ANY DRIVE ATTENTION 
S¥eD4e 0010 BNE 6$ :YES, PROCESS IN TERRUPT 
000137 046736 IMP I. RTRN ?RESTORE REGISTER 


O460S4 016237 000016 003004 Eé§: MOV ys 1 Agee T.ASOF ;STORE ATTENTION SUMMARY 
O46062 105737 003005 TSTB - ASOF + ;CHECK IF ANY ATTENTIONS SET 





ae 
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LU VLE ea a Ree 


ay 


Ny 


9964 


003042 


0C0300S 
003042 


000014 
000014 
002770 


000042 
00004e 


meat 
000014 
002770 
000032 


000033 
003042 


000049 
000040 


000014 
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128: 


15S: 


16S: 
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sYES GO PROCESS INTERRUPT 
B10 LE. CONT SET NG 8 No ett NITQN IN ATTENTION SUMMARY 
R CO 
: GO RESTORE REGISTERS 
a RS ;CHECK IF DESIRED INTERRUPT 
fi GO PRO T 


7¥ cs 
Paar ia apace earee ATTENTION 
3;G0 RESTORE REGISTERS 


rat ts ay PORANETER 9 BLOCK TABLE 
a UNL UNLD,P. Brisit ieHeck TE DRY BRive UNLOADING 

I.UNLD SERVICE DRIVE IN POSITION AFTER ERROR 
sORVPOS,P.PRST(RS) _;RESET DRIVE POSITIONING 

RKMR 1 (Re) CLEAR MAINTENANCE REGISTER 1 

8OR. aff T.CS1 LOAD COMMAND 

RO, i iseu" ; SELECT DRIVE WITH ATTENTION HIGH 


T.MR3,P.B00(RS) STORE S ATus BYTE OO MESS 8 


#5.FLT,P.800(RS)° {CHECK IF AULT 
KO CHECK F FO DRIVE STATUS CHANGE 
I. AERR : PROCESS 
reat? ;STORE MAINTENANCE REGISTER 2 
#50 tP. P82} ;CHECK FOR DRIVE STATUS 


CHANGE 
ES. PR gcess IVE STATUS CHANGE 
eigose, P.PRST(RS! T NO DRIVE STATUS CHANGE 
I. ARERR s PROCESS ERROR 


aR sl T.CS1 3LORD COMMAND 
; CLEAR cave STATUS CHANGE 


T.ASOF,P. asor (Rs) :STORE ATTENTION SUMMARY 
INTMSK,P. ASO SACS) cont IF ATTENTION RESET 
Pe SPT PROCESSING 


: Rad E.CONT HEY atten Ten 19 RESET 
FC,R.CONT my ERRORS 
1. RTRN ?RESTORE REGISTERS 


T.MR2,P.AQQ(RS) ;STORE MAINTENANCE REGISTER 2 
#5.0S5¢,P.A0O(RS) ese IF DRIVE STATUS CHANGE 


16§ NTINUE INTERRUPT PROCESSING 
sDFVOSC, P. pestis ag} ORIVE STATUS CHANGE DID NOT CLEAR 


1. AERR ;GO'PROCESS ERROR 

W. TINE :RESET TIMING ON THIS DRIVE 

W.DRV :CLEAR DRIVE TIMING COUN 

PC R.NORM :REPORT SUCCESSFUL COMMAND COMPLETETION 
1. RTRN ‘RESTORE REGISTERS 
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sedi e 08 By eb TENT ERROR SaROLER 
.SETTL  #ATTENTION ERROR HANDLER 
? 4 I.AERR: T,P.PRST(RS) N N PR S BEeCcau 
O42765 000004 OO00L4 I.AERR: BIC sDRVPD STi iBESET a3 990 iNG IN PROGRESS SECAUSE 
1050327 903070 CLRE sw. TIME :CLEAR TIMING FOR | fs S DRIVE 
093104 éLR Ww. ORV “RESET WATCH-DOG T 
O427E5 17774) 00016 BIC 8177741,P.CSI(RS) sKEEP C 


deb CURRENT = 135.80 STATUS 
:KGEE EERE NesSace : 


“3 
Ne 
oe 
gem 
Baa 
ni 
“2 
2 


T.CS2.P. :STORE CONTROLLER REGISTERS 
socdee MOV T. Pee RE) 
MOV T.BA,P.BAR(RS) 
013765 003000 o000ce HOV T-DA,P-DTS (RS) 
13 poop se snake MOV T RSbE Po asor PRS) 
9 768 503086 900038 MOV T-ER,B-ER(RS) 
Bg3ei8 — JSR ROE STAT ;GATHER DRIVE STATUS 

046726 1. RTRN [ERROR RETURN 


baste, BooRee 0770 Pee ABR CHB a) OS! sSLEBR Sl VE ERRORS 


046736 I. RTRN OR RET 
13730 003071 003005 BITB §§INTMSK,T.ASOF41 ; 5 CHECK IF ATTENTION RESET 
0014 BEQ FLAG DRIVE ERROR 
37 o02042 BIS 8E.CLAT E.CONT ‘EF ATTENTION DID NOT RESET 
904732 047764 JSR PCR. CON : RE 
137 046736 IMP I. RTRN ?RESTORE REGISTERS 
032765 00020 o00014 2s: BIT #ORVHRD,P.PRST(RS) :CHECK IF AHARD DRIVE ERROR 
001017 BNE 10$ 7YES. REPORT ERROR 
032737 o020000 003014 BIT #5. PIP, T.MR2 5 CHECK IF DRIVE IS UNLOADING 
001413 BEQ 10$ REPORT ERROR 
6S oeo0000 00014 BIS #€.UNLD,P. pesTireye? *SET DRIVE UNLOADING DUE TO ERROR 
113727 903071 003070 MOVE INTHSK, W.TIME  ;SET TIMING ON THIS ORIVE 
013737 003054 903104 MOV W.8SEC;W.ORV  :LOAD 8 SECONDS FOR CYCLE UP TIME 
600137 O46736 JMP 1.RTRN :RESTORE REGISTERS 
004737 047740 10$: JSR PC.R.ABNL ;REPORT ERROR 
000137 O46736 JMP 1. RTRN :RESTORE REGISTERS 
.S8TTL ERROR CAUSING DRIVE TO UNLOAD 
052765 O20000 000014 I.UNLD: BIS 8E.UNLD,P.PRST(RS) ;CLEAR DRIVE UNLOADING BECAUSE OF ERROR 
112737 sc0005 002770 MOVE anh CRT T.CS1 :L OR IN IN DRIVE ¢ 
004037 0470 JSR I VE a EAR 
046726 1. RTRN :E 
G37 003071 902005 Be TNTMSK(RS) :. ASOF #1 5 CH 3 CHECK iF ATTENTION CLEARED 
012737 oco0020 oD2042 MOV ie CLAT,E.CONT SET’ *aFTENTION DID NOT RESET 
4737 047764 ISR PCR. CONT :REPORT ERROR 
tS BR I. RTRN RESTORE REGISTERS 
036737 o40000 002014 15S: BIT a5, DSC, T.MR2 : CHECK oF DRIVE STAUS CHANGE RESET 
BE 765 o00040 oO00014 BIS wORVOSC, P. pastré)- af DRIVE STAUS CHANGE DID NOT CLEAR 


105037 003070 20s: CLRB TIME sRESET TIMING ON THIS DRIVE 


en ee eennmmnntineieineamndieees 


MO-11-D2REN-C - RKE 


i pf 


DIREMC PLL 0S-O0CT- 

eS BSS ESE 
? a Hey 
ies Rens izes 
ee RUECED BASSES 


$4,805 SUBSYS. VERIF. 


903304 
047740 


: PART 


" sERROR AUS ING DRIVE 16 


I.RTRN: MOV 


a ee 





G15 


MACYL1 =) (1508) 
UNLOAD 
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W. ORV CLEAR TIME COUNT 
PCR. ABNL :REPORT ERROR 
(SP)4,R0 sRESTORE RO 
B28 jee d 

+! BS : 37 ORe &§ 
(eye Rs :RESTORE R4 
(SP )+.R5 


iBbs Tare RS 
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DZREMC.P11  OS-OCT-7& 10:02 stONTROLLER CLEAR ROUTINE 

10087 .SETTL #*CONTROLLER CLEAR ROUTINE 

ted ss RARSSSELERELEES SSE AAEL ER SEALERS RELL LE LAA LE PAAL SALSA FAFA HSS SSSSS 

0069 fied 

1 :* S ROUTINE W Y THE DRIVER T CLEAR THE CONTROLLER, 
peed ts Ano CESK SE rhe COnTROE CER ERRORS AME RISES OS oF the Pamce EN 
10063 i SLEBRED THE R QUT INE AS SPECIFIED IN A.CONT WILL BE CALLED "tte 
1064 : E.CCLR SET IN E.C 

BREF :# GISTER USE 

10067 ;# 0 eeeeeee- wee 

10068 so 

10063 1% R2 ADDR $5 OF RKO& REGISTERS 

ger + RE ADDRESS OF PARAMETER BLOCK 

sul 3% 

ies 5 eel TER ORESS oE-ERROR RETURN» 

isbn i RevURm 

*& 

Tee Prertitirtrrittititittittttittittiittiiiiiciiielericielorrc ress: 

i 048754 012762 100090 OD00000 I.CCLR: MOV #CCLR RKCSL(R2) :CLEAR CONTROLLER 

18e8 O46762 016227? 600000 O0e770 MOV RKCS1tR2).7.CS1 :STORE CO AND STATUS REGISTER 1 
19080 046770 032737 100000 002770 BIT #CERR, T Real ick ae ERROR CLEAR DIO 

10082 oO4677% 001407 BEG 3 :YES, RETURN TO DRIVER PROCESSING 
10683 047000 052737 900001 ocozc4e BIS #E.CCLR,E.CONT :SET CLEAR CONTROLLER 10 NOT CLEAR ERROR 
10084 647008 904737 047764 ISR PCR. CONT :REPORT CONTROLLER ERR 

10085 847012 011000 MOV (RO) RO :SET UP ERROR RETURN 

1208 047014 o00200 RTS RO : RETURN 

10088 O47016 O12762 000190 op0000 ss: MOV SIE,RKCS1(R2)  ;SET INTERRUPT ENABLE 

19089 O47024 115737 177777 OO3064 MOVE #1, I. SAL $3ET INTERRUPT ENABLE ISSUED 

10080 O47032 605720 TST (RO}+ :ADJUST FOR NORMAL RETURN 

10091 047034 900200 RT 0 : RETURN 


H15 
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18038 


PO tataconararery hehany ruryrunye sts rere OR OR ROR ROBB 


FAL OBOG IR 


eer sey ey es 
+s 
N 





O5-0C7-7& 


MM LIM UIC 
SSS 


—-O y pee owe Fe 
Ce tb - 


| 


100375 


109000 
047764 


024000 
176400 
131761 


ocooos 


002772 
000010 
002771 
002771 
00009 


002770 
002772 
003042 


002770 
002772 
003006 


VERIF. 
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stonmano” ISSUED BY farveR SERVICE ROUTINE 


. SETTL 


*#COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


5 RRSHRELAAASLSARELA SLA LL FELL ELSES RELELAALLFLERELELAELELELELELESE 


$ 
2 


1$: 


es: 


achat TF A Chnaaucen Eneon cccunees, Fm CONTROLLER 


REGISTER USE 
Re ADDORESS OF RKOS REGISTERS 
Ro ADDRESS OF PARAMETER BLOCK 


JSR RO. I, 2135 
(ADDRESS OF ERROR RETURN? 
RETURN 


ROUTINES USED: 


; EEERERESERERERERLELL LEE LEELA LE RES EEE EEE ARERRELES ALAS RERAEAE ESS 
: MOV T.CS1,-(SP) 
CLR T.¢52" 


sSTORE COMMAND. ISSUED 
TEMPORARY CS2 

Move r. BRVN(RS).T.CS2° : LOAD ol yprive UMBER 

MOV T.CS2,RKCS2(Re) ;COAD DRIVE NUMBER FOR COMMAND 

MOVE =P, ;eS2ACRS) T.CS141 “STORE BITS 8-15 OF CSI 

BICB  #fC<B.CDT!#8. CFMT>, , wk :€s1 1st -CLEAR ALL BITS EXCEPT 

1 BND, DRIVE TYPE 


MOV T.cS1 BKCS1(R2) ; LSE aath 

1378 * pi 1tRe FOR REDDY 

JSR TOR :GO STORE REGISTERS 

BIT PCL STOR. :CHECK IF CONTROLLER ERROR OCCUERED 


$ :NO RETURN 
BIT #MDS,T.CS2 sCHECK IF MULTIPLE DRIVE SELECT 

BEQ 23 HECK FOR OTHER CONTROLLER ERRORS 
BIS #£.MDS,£.CONT ioe nue Tt PLE DRIVE SELECT 

ISR PCR. CONT sREPOR CONTROLLER ERROR 


B 10$ 

:CHECK IF ANY CONTROLLER ERROR IS SET 

err acTo! ISPAR,T.CS1 

BIT #UFE!PGE!NEM!NED!UPE!WCE!DLT,T.CS2 

any - HILC!DTVESFNTESECH!BSE!HVRC!COE!DTE!OPI#0CK, 7. ER 


CMPB #DR.CLR, (SP) ;CHECK IF CLEAR DRIVE 


eS ee a ee ee ae ee -—™ 
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DZREMC P11 05-OCT-76 10:03 +COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


10148 047208 001003 BNE DQ NOT SET ORIVE HAO ERRCR 

1piws O47e10 5275 oopgeD O00dI BIS HPD, P. erst Rb) 3} Peay tha DRIVE, ERR 

1Disd O4721 037 O46754 3s: JSR sue A CONTROLLER CLEAR 

igisi Qureee ON ERe 10$ OR 

101 9554 O12762 O00100 OO0000 Ss: MOV  SIE,RKCSI(R2) !SET INTERRUPT ENABLE 

1Bie4 Suesaa | SOESSS te fe it UST RO FOR NORMGL RETURN 
{ + 

ie RH Be an: at 

1GiS? 047240 052737 001000 S42 78:  BIS_—RE.CERR,E.CONT ;SET_ CONTROLLER ERROR DURING 

1515S o4724 004737 047764 JSR ——- PCR. CONT TREPORT ERROR 

10160 O4728S2 05726 10S: TST (SP )+ SAB JUST STACK 

10161 O47254 011000 Mov (RO), RO [ADJUST RO FOR ERROR RETURN 

idle O472& 002 RTS RO ; RETURN 





| 


————— 


OZREMC.F 


2 bs 88 2 a 8 be bee Be hw Be Bn be be 8 Be 8 Bo be Oe res 
OVNIOVOOY OOOO VOOOVOOOBIOOOAOOOoOOVOO0O000O 
FORA S IELTS IAL SSE SESE fF 


BRR GREGG Oa 
Sue 


Tee eg mee me ee Spay Se Sey 


m7 oy itd = ws he ~~. a BSYS. VERIF. 


0000 
000930 
000032 





: PAR 
sTORE RKELL UNIBUS REGISTERS 


ec et ee ee ee es as ee ee as ae 
z 
.- 
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*STORE RKG11 UNISUS REGISTERS 


, EEARERALALSEAAAELRALLALELFELELEAA ALLEL ELALESLERELLLELELELELLELESE 


THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER TO STORE ALL 
RK611 REGISTER IN TEMPORARY LOCATIONS. 


JSR PC,I.STOR 


RETURN 
REGISTER USE 
R2 ADDRESS OF RK611 REGISTERS 
‘ONIRTE LCAT OL. ORAL ESR LEE: 
092770 I.STOR: MOV RKCS1(R2),T STORE But CONTROLLER REGISTERS 
772 MOV RKCS2 (Re) EXCEPT DATA BLFFER 
MOV RKC EC CRE) 4 ce 
MOV RKBA(R2),T.BA 
MOV RKDA(Re),7.DA 
MOV RKDS(Re);T.0S 
MOV RKER(R2):T.ER 
MOV RKASOF (Re) , T. ASOF 
MOV RKDCYL (Re). T.DC 
MOV RKMR1(R2), T.MRI 
MOV RKMR2 (Re), T.MRe 
MOV RKMR3(Re) | T.MR3 
MOV RKECPS(Re),T.POS 
MOV RKECPT (Re) .T.PAT 
RTS P ; RETURN 











OZREMC.P11 


QOoodoo 
Se eT 


fulorurorororururofururorororurone 
BIFALH- OBS IE 2 


b+ b= b= 2 00 & 2 Bs bs B 0 & = Bo hs ho Be he ee ee Bo bo he Pe Be Bo ee 
b+ bb bs bs =D 
WO NMU1£ Gore wo 


o2 

02 

Oe 

0220 

0221 

0222 

0223 

0224 

0225 O47406 942765 

10227 O47414 042737 

10228 O4%742e2 OS37E5 
047430 O162E5 

10230 047436 016265 

10231 O47444 O16265 

l02e32 047452 016265 

10233 O47460 O1S265 

10234 O47466 O16265 

10235 047474 Ol6265 

10236 

10237 047502 016265 

10238 047510 000207 

10239 


0006 
pete 
000016 
000020 


MO-11-DZREN-C - RKE11/RKO6 — VERIF. 
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#STORE T SONTROLLER STATUS 


-SETTL #STORE CONTROLLER STATUS 


gp RRSRRERRARARARRESRAAAESA SERS SE ESAS ES REESE ELAS RAL AAA LAL ELS ALLELE 








:% 

:# THIS SUBROUTINE IS CALLED BY THE RKOS DRIVER AT PRIORITY 7. 

;* THE FOLLOWING REGISTERS WILL BE STORED: 

-@ 

:* COMMAN AND STATU grEGISTER 2 

:* WORD COUNT REGIST 

:# BUS ADDRESS BEATSTER 

3% DESIRED TRACK AND SECTOR 

:# STATUS REGISTER 

: ERROR REGISTER 

1 ATTENTION SUMMARY/OFFSET REGISTER 

i CYLINDER ADDRESS REGISTER 

*#CALL JSR PC,I.CSTS 

i# RETURN 

i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 

te 

:# REGISTER CONTENTS 

: 

1% R2 RKO& BASE ADDRESS 

:# RS ADDRESS OF PARAMETER BLOCK 

+ 

Perrettittttrttttttttttitiitittiititiiitiitiiitiriictiiiiciicis. 
000016 I.CSTS: BIC #177741,P.CS1(R5) :CLEAR ALL BITS EXCEPT FUNCTION 

:OF LAST COMMAND ISSUED 

00277 IC #36,7.CS1 :CLEAR FUNCTION OF CSI STATUS 
00001 1S T.C51.P.CS1I(RS) :GENERATE CSI STATUS INFORMATIO 
009020 I.CST1: MOV RKCS2tR2).P.cS2(R5) :STORE COMMAND AND STAT US REGISTER 2 
oo0002 MOV RKWC(R2),P.WCR(RS) :STORE WORD COUNT R 
000024 MOV RKBA(R2) .P.BAR(RS) -STORE BUS ADDRESS ped PotER 
000026 MOV RKDA(Re).P.DTS(RS) ; STORE DESIRED TRACK AND SECTOR 
000036 MOV RKDS (Re), P-D5(R5) :STORE DRIVE STATUS REGISTER 
900034 MOV RKER(R2)‘P.ER(RS) :STORE ERROR REGISTER 
900032 MOV RKASOF (R2) ,P. ASOF (RS) sSTORE BTTENTION SUMMARY AND 
000030 RKDCYL(R2),P.OCYL(RS) ;STORE CYLINDER ADDRESS 
PC : RETURN 





M15 
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DZREMC.P11  OS-OCT-76 10:03 *GATHER SRIVE STATUS 
19240 .SBTTL GATHER DRIVE STATUS 
Heh 4 a a ra 
10244 THIS SUBROUTINE WILL BE USED T0 GATHER DRIVE, STATUS 
10245 + YTE 0 ND 11. IT IS ASSUMED THAT THE " ‘VE 
isis b HAS PREvTOUsLY BEEN SEIZED. IT RUNS MAT PRION iY 7. 
é : 
10248 :*CALL JSR RO,I.STA 
19249 ie <ADDRESS OF ERROR RETURIY> 
icese i RETURN 
idee i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
10254 :# 
10255 x REGISTER CONTENTS 
10256 ee 
10257 ‘a 
10258 1H R2 RKO& BASE ADDRESS 
10253 1 RS ADDRESS OF PARAMETER BLOCK 
;* 
10261 1% ROUTINES USED: 
debe i 1. 1SSU 
insee : : KELLER KLFESA SAS SKE L LES ELH ASAE LELSSRERLELAARALALA TE AERSLFELE 
10266 047512 O12762 O00001 o00026 I.STAT: MOV #1, RKMR1(R2) ;LOAD_ MAINTENANCE REGISTER 1 
10267 : FOR sraru BYT® Ol 
10268 O47520 112737 00000: 902770 MOVB #DR.SEL,T.CS1 =LOAD COMMAND 
10269 047526 004037 047036 JSR RO,1.1SSu sGET STATUS BYTES 01 
10270 047532 947722 3g “ERROR RET 
10271 047534 013765 003014 ooco44 MOV T.MR2,P.AQ1(RS) EPR RE oF aTuS BYTE O01 MESS A 
10272 O47542 013765 003016 oo004E MOY T_MR3/P.BOI(RS) : STORE wgratus BYTE 01 MESS B 
10273 O47550 Ol2762 o00002 oD00e6 MOY #2, RKMRI (Re) LOAD MA Hiroe Bye REGISTER 1 
| 10274 : FOR : TaTUs BYTE -1 
dee fia Bae RA rR HORSE Bere 10 
10277 o4770 047722 3 ; Ser aT8 ETORH 
78 57 013765 003014 oo00s0 Mov T. NRE, P. R10(RS) igitre sf oF aTLs S BYTE 10 MESS 8 
ib5e4 Sebe Bisces Bosoes Booose MOV #3, RKMRI aR) 2k; M INTERAC REGISTER 
i 
10282 047614 112737 000001 002770 MOVB OR SEL,T.CS1 * LOAD conn ANG © 
| 10283 047622 004037 047036 JSR ~1SSU :GET STATUS BYTES 11 
10284 O47626 047722 3$ :ERROR RETURN 
| 10285 047630 013765 003014 oo00s4 MOV T.MR2, P. ALI(RS) STORE STATUS BYTE 1 MESS A 
| 10285 047636 013765 003016 900056 MOV T.MR3.P.BLICRS) :STORE STATUS BYTE 11 MESS B 
10e87 047644 05062 000026 CLR RiMBG ERED ;LOAD nBINTERARCE REGISTER 1 
j ic ; 
| 10289 047650 112737 000001 002770 MOVB #DR.SEL,T.CS1 "LOAD COMMAND 
— 10280 047656 004037 047036 JSR RO, 1. 1SSu :GET STATUS BYTES 00 
| 10291 O47662 047722 3$ ‘ERROR RETURN 
10292 047664 013765 003014 oDD04O MOV T.MR2,P.ACOCRS) :STORE STATUS BYTE OO MESS A 
10293 047672 013765 003016 on004e MOV T.MR3,P.BOO(RS) STOR RE STATUS BYTE O00 MESS B 
10294 047705 032737 O01000 Go2016 BIT #5. PAR, T.MR2 ‘CHECK IF BAD PARITY DETECTED BY DRIVE 


1029S 047708 001407 BEQ 5$ :NO, RETURN NORMALLY 


io 
| 
| 
| 
| 
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| OZRENC. Pll | OS-OCT-76 10:03 GATHER ORIVE STATUS 

10286 047710 052737 992000 003042 BIS HE. DPAR.E CONT : INDICATE Ba PARITY DETECTED BY DRIVE 
ee R55a8 BR ioe ; 2: a ROS: RO ESA no EER  cRROR RETURN 

1033 047754 00 RTS RO RETURN 

10301 oO47726 OS2765 001000 o00014 SS: BIS BPBSVAL,P. PRST(RS) sSET PARAMETER BLOCK STATUS VALID 
10302 647734 fos720 TST (RO}+ ADJUST RO FOR NORMAL RETUR 

1 047736 00200 RTS RO tRETUR 
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| MO-11-D7REM-¢ - PKE}: ROG SUBSYS. VERIF. : MACYL1 27(1006) OS-OCT-7& 10:13 PAGE 192 S€3 2197 
| OZRSAC.P11 — OS- cr=76 10:63 ekonmnno. INITATOR 
19380 .SETTL © #COMMAND INITATOR 
| 1nsss fp RRAPRSPSSSSSSSSERERSSESESELSSSSSESSS SESSA SSESESES SES ESSSSSSSESS 
: 4 
3! :# THI TINE W NITzaT DS fs, SPECIFIED 
ie ] PRPRIUS Us BE Ba res 5H, 
zie i SPECIAL SORMAND ARE ago "Hecitens 
iee r ¢ SEEER CLEAR 
I :# Yen ERE 
| 30331 :# READ ALL DRIVE STATUS 
ies i* READ SPECIFIED HEADER 
| 1533 if THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
303395 :# 
18 :#CALL J PCC. INIT 
ee :# ‘BeORESS Se edsane er BLOCK» 
] ;# RETURN 
ce FRE. THe SEQUENT RATIONS, THE DRIVER WILL LOAD THE 
. ;* ’ T\ WIL 
: sf PRET RNIA SRE 
1u3 s¢ 
| 10343 | -# ROUTINES USED: 
j 10344 7% 
| ‘: Cae 
| ise if t:CcLR 
| v3 -# 
; he PP rererirtitiiitiitttittittetitetiititittittcrrrtistirriirtiity, 
| 10351 OS0006 g10SHe C.INIT: MOV RS, - (SP) sSTORE RS ON STACK 
10352 050019 O10446 MOV RY) -( SP) ier RY ON STACK 
= 10353 00012 O1og4e MOY R3;-(5P) ;STORE R3 ON STACK 
10354 0014 O1de4e MOV R2,-(5P :STORE Re ON STACK 
- 10355 050016 O10146 NOV R1,-(5P) ;STORE RI ON STACK 
| 10358 055020 92046 Mov RQ. -( 38) sates RO ON ON TACK 
vse . 77776 t Vv = 
| 10358 SESnEE Biz 603032 177776 MOV RKPRIPS LOCK ou Roe INT INTERRUPTS : 
| 10359 050034 017605 O000i6 MOV 316(SP) RS ;STORE PARAMETER BLOCK ADDRESS 
| 15360 ge . 900002 1é GOD a2, 16(SF iO) T Re TURN 
10361 Ole MOV P_DRVNTRS) ,RY OR ve NUMBER 
| 10362 O500S2 042704 ‘177770 IC #tC<DRVMSKS , RY ; MASK OUT JUNK 
13363 pe0se 019537 903102 MOV RS, PBLKT LOAD PARAMETER BLOCK TABLE 
8 116437 002072 903071 MOV T-PRVCRY), INTMSK’;LOAD INTERRUPT MASK 
| 10365 050070 116437 003072 903070 MOVE  I.DRV(R4)°W. TIME ;SET WATCH-DOG TIMER FLAG 
10268 050076 013737 603052 502104 MOW W.SEC,W.ORV  ;LOAD WATCH-DOG TIME 
10268 OS0104 012702 002026 MOV RKBAS, Re ;LOAD R2 WITH RKOS ADDRESS BASE 
| 19370 : RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 
teed 3 DRI 
| 3037 ; WRITE FOR WRITE CHECK 
| 10373 : NO CHECK 
| 19374 ; DROP ORIVE FROM TEST SEQUENCE 
| 10375 ; INHIBIT BUS RODRESS INCREMENT 





be og 






| "D-11-D2REN-C - PEL 1 FO Suess. VERIF. : PART | MACYIL 27(1006) OS-OCT-76 10:13 PAGE 199 "SEG 01396- 
| Deadacceii 0s-3c7- eLOMMGND INITATOR ; 
10378 050110 O42765 07517 000014 — BIC 81C<DRVUSE!W. WOK !NOCHK!DRPORV!DTBAII>, p. PRP RS) 
| 10378 oS0116 910500 MOV RIS, RO STORE PARAMETER BLOCK ADD pao 
| 30379 960120 700 4600016 ADD 8°. CS1,R0 : caus PAL SuLaT T LOCATION we CLEARED 
13380 scies 50} “OV RS, A] Pabane? :S 
csi 650i 751 000062 ADD ePEPAT. RI TORE Berar LOCATION TBE C D ‘ 
10363 os013e 5 i$: CLR (RO)+ 
| 10384 950134 620001 EMP RO.RL creck rags FINISHES NI SD ae 
 1dSss =i 10177 BLOS Fa pe NEXT MATER 
| 10386 050190 106037 903064 CLRB  ISRL ae RINTERRUPT SSUED 
| 10387 OS0i44 10865 900020 MOV Ra, .Cse(RS) :3 
| (5382 o3iso seesee LR matted (Be ee NTENGNCE GISNER 1 
1538 p55i54 12275 600046 00001 e118 #1 'PecmocRs)° Fi: cK IF SPECIAL 
| 1036] o8die4 S8735 osoroo Ime 6G. SPEC ‘ite TO SPECIAL COMMAND PROCESSOR 
15393 OSO170 122765 000107 000001 3S: CMPE- UNLOAD, P.CMND(RS) CHECK IF POSITIONING COMMANG 
iv3S% ( ; 
1539 : Beet TBRATE 
tet | ; or 
ie i UNLORO 
| 70400 oSOI76 101174 BHI 2s :NO DeIvE poMmAND 
| JO401 : T ORIN 
idsd2 : Pare ACKNOWLEDGE 
| ah ; CLEAR 
| [0405 oS0200 122765 000117 D00001 CMPB 4s SEEK, P.CMNDCRS) ; CHECK iF TA TRANSFER 
| [OM06 50206 193646 + BLO 20$ ; YES, DATA TRANSFER COMMAND , 
«15457 ; READ DA 
| 10408 : WRITE DATA 
id40$ 4: READ HE 
10410 : WRITE HEADER 
(Biz psce10 pueste opone0 pogoi0 Mov _P.cS2(RS) .RKCSecRey LORD DREVE 
75438 O50216 S62765 ooodde 00014 he sORVEOS, P. PRST(RS) -SET DRIVE POSITIONING 
| [0415 650554 937 903044 CLR WAIT CLEAR WAIT FOR CO 
_ 1041S 080230 122765 000117 o00001 CMPB aire P.CMND(RS)’;CHECK IF SEEK 
| «HSIE Se0es— 001007 BNE NO, CHECK FOR OFFSET 
| HMI? 060640 O16 poceg2 00020 MOV P.CYLN(RS) » pKDCYE (RE) LOAD CYLINDER ADDRESS 
| 20418 OS0e46 016562 000004 000006 MOY —- P.SECT(RS);RKDA(R2) ;LOAD SECTOR AND TRACK 
10913 4 00053; BR 93 :G0 fSSUE COMMAND 
10421 OSO2SE 122765 000115 o00001 Ss: CHEB SOFFSET,P.CHND(RS) ; CHECK TE OFFSET 
iO422 050264 601007 BNE ‘g “NO. CHECK FOR UNL OAD 
iD423 O&02ee6 GEES 900006 go0ose MOVB  P.OFST(RS),P.ASOF(RS) ;STORE OFFSET 
Dae 050274 Oletee o0003s2 Odd00le MOV P’ASOF(RS) ;RKASOF (Re) :LOAD Rae 4 REGISTER 
1ieS 050302 90041 BR ag :G0 ISSUE ¢C 
10427 o50304 000111 oo0001 és: CMP8 so BSRTSPL,P.CMND(RS) ;CHECK IF START SPINOLE 
tote? d602l2 O06: BNE 7§ :NO. CHECK 
HBR BRE Te SEIT ERR ne, Fike PEM Bhocasl POMTGE RREaE FOR | ENTE 
| 70431 660330 Oo1003 BNE «aS :NO, CONTINUE 
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=OZREM-C - RKGI: ROE S855. VERIF. 3 MACYILI 27(1006) OS-OCT-76 10:13 PAGE 200 se 
Pil  OS-OcT-7 10:8 tomo: INITATOR 
252332 213737 003054 903104 a v, SEC ne PECAL TINE FOR € SECONDS 
SesSug ALSSte ies7 77 bot oyy Ps in'8s cars. 121) 3 - CLEAR he 5742 ckee FORMAT 
o50354 16565 000001 o00016 MOVB P.CMND(RS),P.CS atest BND DRIVE ree INTO CS1 
2765 000200 900014 ee ait. WCk PEST (BS) sRESET WRITE FOR WRITE CHECK 
ate Dace | pate :NO ee O Pae SE INTERSUPT ENAELE 
1g 48 Beat ces. Recs 1 cue IS De COMPING 
36 JSR pe W.WTCH’ . nae Son meR 
MOV rkeSi(R2).T.CS1 AND STATUS REGISTER 1 
37 gr aby, 7.CSI SAT FS READY 
737 BIT aCERR,T.CS1 “e CK FOR ERROR 
db0444 ca Q ii BNE *c§ GI 
penis BOS. ous3se ISR PC. W.WTCH CALL WATCH DOG TIMER 
16237 ig 003 MOV RKASOF (R2),T.ASOF :STORE ATTENTION SUMMARY 
050460 133737 003071 003005 BITB INTMSK,T.ASOF41 ; He Ck IF INTERRUPT HAS OCCURRED 
fs 001767 8EQ Il :WAIT FOR ORIVE INTERRUPT 
19 003070 18S: CLRB  W.TIME :RESET TIMING ON THIS DRIVE 
050474 005037 O03104 CLR W. ORY [CLEAR DRIVE TIMING COUN 
os0so0 0047 ISR PCR. NORM s INOICE E COMMAND IS FINISHED 
050504 000137 51660 IMP C.ATRN SRESTORE REGISTERS 
10 O16S62 00001 20S: MOV P.BALO(RS) ,RKBA(R2) jh QA0 Bu BUS RODRESS REGISTER 
Rese} biEeee 60061 aeons; Mov P. pec (RS) RAC (RE? ; LOAD WORD COUNT RE TER ana 
Benes? Gites BobbEE Dobese v p-Siunad) eR Re) LOM. CIRINOER. BORE Runes 
050540 eer 000131 00000! chee wieTom, LP, -CRNOCRS) i :CHECK IF WRITE CHECK C 
SEnecs poo200 000014 hai 8i.WCK,P.PRST(RSS $CHECK IF WRITE COMMAND SHOULD SE ISSUED 
S537 901404 BEG 25¢ =NO, gd THE COMMAND 
650 Ol276S 000123 o00016 MOY SWROATA,P.CS1(RSS :ISSUE WRITE COMMAND 
DS0SEE OO040E SR 26S :G0° ISSUE COMMAND 
os i 00016 253: MOVE  .CMND(RS),P.C (RS) iiove 
SE5E2e AiSSEe ssiseiee seit = BIC ail. WCK,P.PRST(RS) :RE ERT TE FOR i PLE ch CHECK 
050604 116565 000007 000017 ees: Move P.CSIHIRS) Scere tee ; STORE BITS 8-15 OF CS1 
OS06l2 142765 177750 17 BICS stC<B.crMT!g.cOT!B. BAL! 1B BAl7>,P. cfr 15 OE, ( EAR ALL BITS EXCEPT 
; erie it: DRIVE TYPE, AND Bis ACDRESS 
050620 010537 oD3044 MOV IT ‘LOAD WAITING FOR COMMAND 
A 190000 oo0014 | eI aptBAll,P. PRST(RS) ; : CHECK Ie INHIBIT BUS ADDRESS INCREMENT 
050624 052765 900020 ooD020 SIs I.P.csecrS) set IndIBIT BUS ADDRESS INCREMENT 
Os0e4e O16562 900020 900010 278: Mov SPRL, Pcs RKese(ha) ; 
950650 032765 000400 600014 BIT BNOCHK ,P.PRST(RS) ‘oligo IN NO CHECK MODE 
Os06S— 99014 Beg 208 No SKIP CLEAR OF INTERRUPT ENABLE 
350 O42765 000100 oo0n1E IC CS1(RS)  :CLEAR IN TERRUPT ENABLE 
SEbbE O1eSe2 OO001g SOOD00 308: Mov p.cei (Rs), RccsicA) -ISSUE COMM 
050674 000137 OS1E60 IMP ER RESTORE REGISTERS 


-SBTTL #SPECIAL COMMAND PROCESSING 
OS0700 122765 000141 000001 C.SPEC: CMPB SROSTAT,P.CMNO(RS) ;CHECK IF READ DRIVE STATUS 
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epeciaL COMMAND PROCESSING 


2s: 


6$: 


9$: 


10S: 


eh 33 YES. INDICATE CONTROLLER ERROR 
J RO,I.CCLR iCLEBR ERROR 
C_RTRN “ERROR RETURN 
BIT SNED!UFE,P. esacr§) ;SHECK IF NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
BNE S$ ERROR 
Bit #DRA,P.DS(RS) : CHECK IF F DRIVE AVAILIABLE 
Bye #ORVSZD.P p.prstiRé) “;thotceTe, De DRIVE IS SEIZED BY OTHER PORT 
sR PC.R RABAL INDICATE ABNORMAL RETURN 
IMP C.RTR ‘pet ORE EREe ISTERS 
R RO,I.STAT THER TAT 
Sire RO-STAT GRRE PENG STATUS 
CLRB iW. TINE : STOP WATCHDOG TIMING ON DRIVE 
Holi p.encrins\ Sed ne Ren 
grr #NOCHK,P. POST) CHECK IF CHECK MODE 
CLR RKCS1(R2) CLEAR ISTERERE ENABLE 
JSR PC. R.NORM ?REPORT COMMAND COMPLETE 
IMP C.RTRN *RESTORE REGISTERS 
BIS #E.MDS.E.CONT  ;SET MULTIPLE DRIVE SELECT 
ISR PCR. CON T ; INDICATE CONTROLLER ERROR 
IMP C.RTR 
cnee sRELEAS, ,P. oat :C HECK IF RELEASE COMMAND 
ACY REO. WAIT Sto Fi onan TER BLOCK BBOREce In 
BIS HRLS.P.CS2(RS) :SET REL EA ae re 
MOV P. ;CoecRS), RKCS2(R2) ; sLORO ese FOR DESELECT 
MOVE ‘& - SET’ FOR RELEASE COMMAND 
MOVE . 1d TORE, P. osidttRsie eS ORE BITS 9-15 1 
BIC BtC<CEMTIECHT) .P.CS1¢ (RS) 5CLEAR BLL Bits EXCEPT FORMAT 


MACY11 27(1006) OS-OCT-76 10:13 PAGE 201 


PROCESS ying: 


Pp: fe Ma pha A fs Te 


BiecCEMTECOTS - ee BITS Exc gt FORMAT 


ve TP 
DR. SEL 

bcSi ee). Reesiteas te 

BKeSI CRED P, esi igs ae ormnno AND STATUS REG. 1 
#80 Y,P. CSL (RS) "hart F 


PEL Cat P. poo Be) nErSee efattS Byte oof OG MESSAGE A 


RKMR3(R2)P.BO0(RS) STORE aTus SSAGE 8 
acRR, »P.CSI(RS) CHECK F_coNt R ERBOR 







k TIME nese iret 8 i ae ON THIS DRIVE 
BHOCHK, .P. pRST(RS)” } HECK IF IF NO 


#MOS,P.CS2(R5) i fea? IF OLSIPCE re RET SELECT 
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MO-11-DZREM-C - RKEJ YS. VERIF. ; PART 1 (1006) OS-OCT-76 10:13 PAGE 202 SEG 220: 
PB TES Be RASELCEKOS BES wiper tan COMMANS ERODESSING 3 
OS 1246 ee 999103 g00016 MOVB sSELDRV,P.CS (BS) SRE f 
less 7 00 000014 SIT OCHK,P.PRST(RS) = CHECK oN Buecy MODE 
seifte 1 Eg 1s ; ind 00 NO 7 or Reset INTEs INTERRUPT ENABLE 
a { 
Ret e8: RIE CES 388400 ieatfee 118: v Pei (88) Recs Re tobe RR ane oe 
051300 000137 0S1669 IMP sestone REGISTERS 
4 ! $:  ¢cMPB eu, ,P. cmO(RS), ; CHE K IF READ aL 
eel? 1 en oe cre ®5.9.WA I ast Gait «Te Com SER EER on 
pe tehe Bi PEs ieee 003060 MOV > BAO ie Ser ae 
051326 132765 000020 900007 SI7B oa, CENT, P. 1 na CHECK if ‘is ee FORMANT 
SE YB ae Soe: 
12737 000024 003062 MOV 25. HOR. CT tL Pie & Nee COUNT 
051344 0900403 aR 25 G0 I READ HEADER CO 
1346 012737 ‘903062 148: MOV #22. HOR. CT it 980 22 IN SECTOR COUNT 
peice 16562 eet 6 225: MOV P.CYLNCRS yi (R2) ;LOAD CYLINDER RODRESS 
351385 5165 999094 MOV P ere Tt RE) Rett (Re) dap TRAC 
1370 «(O165 0 MOV p-S2. RS) Pk ) i ORO OR DRIVE 
OS1376 116565 900007 900017 MOVB =P. CSIHK 1+1(R5) ;STORE BITS 9-15 OF CSI 
051404 165777 000016 BIC ast INK 3 cs 1(RB) ;CLEAR ALL BITS EXCEPT DRIVE TYPE 
eaten iueree seta aboot are SROHERD,PCSLCRS) ieee aa iat as ‘ 
| iss biesee p00016 900000 nov P.CS1(RS) recs che) t reSUE READ aa gh haan 
, 
| 1957] 08143 000137 051660 IMPOR RESTORE REGISTERS 
é 
10873 os i442 122765 000176 0000: 30%: ## cCMPE aCONCLA,P.CMOLAS) 0H : CHECK oie Ssrstes CLEAR 
| tbetd Belged BRttte ney Soe ORS I. CCLR te ag ESNTROLL 
«bes Bel MEs age po04eo 000014 Bil NOCHK,P.PRST(RS! CHECK oe CHECK MODE 
| 10578 petaee ata BEO apa :N Hf ICATE NORMAL RETURN 
| 10579 051470 O05062 coooD0 CLR RKCS1(Re) :RESET INTERRUPT ENABL E 
| 19580 051474 900467 BR 40$ : INDICATE NORMAL RETURN 
TREES OS147& 122765 000177 000001 228:  CMPB | #SUBCLR,P.CMND(RS) :CHECK IF sugsySTEM CLEAR 
10583 051504 601406 BEQ 363 YES, CLEAR SUBSYSTEM 
| 10584 051506 052737 oooi00 ooso42 348: 315 #£.ILLD,E.CONT :SET ILIEGAL DRIVER COMMAND 
| 10585 051514 004737 047764 SR PCR. CONT REPORT ERROR 
«40586 (051520 d00457 BR C.RTRN ;RESTORE REGISTERS 
| {0588 oSis22 oO12762 oODDD4O DODDIO 368: MoV sSCLR RKCSE( R2) ISSUE > SuBsysTEn CLEAR 
' 10589 OS1530 Ole265 900000 o00016 MOV RKCS1ER2).P.CS1(RS) ; STORE ND STATUS REGISTER 1 
| 19680 051536 032765 100000 900016 SIT 8CERR,P Be ceiiR RS) Chef IF CONTROLLER ERROR RESET 
| 10591 OS1544 O01406 BEG 37§ FINISH COMMAND 
1053 051546 052737 op000: oo204e BIS sBITO,£.CONT set onTROLL suesysTEM DID NOT CLEAR 
— 10564 051554 004737 047764 ISR PC.R.CONT !REPORT ERROR 
| 10535 051560 .000437 BR C.RTRN :RESTORE REGISTERS 
| 10537 OS1562 013746 003050 378: MOV W.MILI,-(SP) ;LORD 16 MILI-S “SECOND COUNT FOR ATTENTION 
| 10592 OSIS6E O16265 000000 ODODE 2e$: MOV RKCS1 (Re), p.cs1chs) : STORE RET 





H16 


MD-11-D2REM-C - PKG LIF FHOE suesys. VERIF. ; PART 1 MACYLI 27(1006) OS-OCT-76 10:13 PAGE 203 SEG C202 
OZREMC.P1] © OS-0C1 SPECIAL COMMAND PROCESSING 
19600 51574 o3e768 949000 000016 eI #O1,P.CS1(RS) GPK Th rSu eontang CLEARED 
iste SSIES Soesie rte Eherent 16 RILIsecong. cou 
thebs FeteS Ra: m 72. SHE, YE 
10608 OS16i2 052737 c00040 oD304e ers 8E.SCLR,E.CONT ;SET SUBSYSTEM CLEGR DID NOT CLEAR 
13688 051620 004737 O477E4 ISR PC_R.CONT IRE 
10608 051624 OOO415 aR C.RTRN :RESTORE REGISTER 
10603 351626 2 398: TST (SP) ADJUST STACK 
10811 051630 032765 ooo400 000014 sit BROOK, P.PRST(RS) ;CHECK Irn NO CHECK 
10612 051636 001010 BNE c. TRN’ i YES, RESTORE GISTER 
10613 S164 E032 177777 003064 MOVE 1,1. ISRL ‘SET’ IN ERRUPT NESLE Ber 
iD6i4 dd1646 7e2 000i00 O00080 MOY ae Ric (Re) :SET INTER : 
10615 051654 004737 047752 4O$: JSR PC,R. NORM : INDICATE AURAL SEER INAT ION 
teers 051660 012637 177776 C.RTRN: MOV ($P)+, PS sRESTORE PSW 
id61@ OS1664 O12600 MOV (SP)+'RD RESTORE RU 
10619 OS1666 912601 MOV (SP)+'RI *RESTORE R1 
10820 051670 O126o2 MOV (5P)+'R2 RESTORE Re 
10621 051672 012603 MOV (SP)+'R3 RESTORE RS 
tess Ceieoe Btebee HOY een EST ORE Re 
tHEse 521855 S45805 Rts Pe RES IRN 
1Obes .SBTTL OCTAL TO BINARY CONVERSION ROUTINE 
tea ; esi Ee pape hepa oye oie Tm re are ar in 
10629 + THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
10630 4 WITH @ NULL <O00> OR COMMA. IF THE C ECTERS ARE LEGAL 
10631 # a WILL GENERATE TWO BINARY WORDS PL agit HE LOW IS BITS 
ese  # ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
-& 
10634 :*CALL 
10635 # MOV <ADDRESS OF ASCII STRING» ,-(SP) 
_ 10636 1% ISR PC. OCTBIN 
10637 :# <ADDRESS OF ERROR RETURN> 
10538 # RETURN 
st 
iat : 5 EERRRLRARA RAE ALLER A ELLE LEA ALAA ARAL AL ERE LALA ELE AAA EA EL ALEL ERE 
| 0642 051702 O1004E 7 OCTBIN: MOV RO, -(SP) ;SAVE RO 
| 10643 051704 oO10146 MOV J,-(3P) :SAVE R1 
«10644 061706 C1oe4e MOV ’ -(SP) BBV Ro 
10645 051710 O16600 oooD10 MOV ist RO _ ‘GET ADDRESS OF ASCII STRING 
| «~IDG46 051714 005001 CLR :CLEAR DATA WORDS 
10647 051716 905002 CLR RB 
| 10648 051720 112046 2S: MOVB hays, (SP) , PICK THIS CHORACTER 
| [0649 061722 601423 BEG 33 oNF ZERO GET OUT 
10650 051724 121627 oooos4 CMPB sé SP), #”,, :CHECK IF CONIA 
10651 051730 001420 . BEQ IF COMMA GET 
10652 051732 122716 opD0ED CMPB sé, (SP) :MAKE SURE HIS” CHARACTER Is 
10653 051736 603030 BGT 4g ; AN OCTAL DIGIT 
| 10655 651740 122716 ooooe7 CMPBség’7, (SP) 
| 10855 051744 Ooe4e5 BLT 4g 
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o-~ BOo Oo. 


wD 


Ose -— ~~ DDT 


wWuWIWwW OfMWw 


0 





OS-OCT-76 10:13 PAGE 204 


+a 


; #8 


;STRIP THE ASCII JUNK 
;ADD_THIS DIGIT 


iRPEON PARTIAL FROM STACK 
SAVE RESULT 


Reet Re 
;RESTORE R1 
;RESTORE RO 
s;ADJUST RETURN 
; RETURN 


;CLEAN UP PARTIAL FROM STACK 
;RESTORE Re 
RESTORE Ril 


Rea TOs RO 

PUT ADDRESS OF ERROR ROUTINE ON STACK 
;GO0 PROCESS ERROR 

sHIGH ORDER BITS GO HERE 


7 
, 
. 
, 
© 
, 


.S8TTL RANDOM NUMBER GENERATOR ROUTINE 


s LFLAERLEEARA FLA LELALALARALE LSE AAEAELELERERE LE LL LEELELEFELELLELE 


1$: 


PC, SRAND 


$HINUM,R1 
#1057,R0 


#47401 ,R1 
RO, SLONUM 
R1, SHINUM 
(SP)+, Re 


!&THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
**#WITH A RANGE OF O TO 2(4+33)-1. 


" JSR 
RETURN 


;:;CALL THE ROUTINE 

;;RETURN HERE THE RANDOM 
s;NUMBER WILL BE IN 
. SLONUM 


. 
ss , 


;;PUSH RO ON STACK 


Tt 

;;SHIFT RO LEFT AND 
;;ROTATE CARRY INTO R1 AND 
es K FOR DONE 


: LOOP 
;;900 NUMBER TO MAKE X 129 
;:PROPOGATE CARRY 
53 NUMBER TO MAKE X 129 
;;ADD LOW CONSTANT 
;;PROPOGATE CARRY 
;;Q0D HIGH CONSTANT 
SAVE RO 


;; SAVE R1 
;;POP STACK INTO Re 





012601 


123456 


00002 
000000 


—-OO 
Te 
8 
io 
3 


1D ng ah - RK611/ o~ SUBSYS. VERIF. 
OS-0CT-76 10:03 


001157 


000002 
900001 
000100 


0S2210 
054636 


000040 


coocde 
000011 
code0e 


052416 
0Se23Se 
001156 
001154 
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PART 1 MACY11 27(1006) OS-OCT-76 10:13 PAGE 205 SEG 0204 
RANDOM NUMBER GENERATOR ROUTINE 
MOV (SP)+,R1 ;POP STACK INTO Rl 
poy § }+,RO 1iOP Ua INTO RO 
RTS 
SHINUM: .WORD 6543 


SLONUM: .WORD 123456 


-SBTTL TYPE ROUTINE 
5 HEEEEERSEERRELALSEREEAEERRRR ERE REL AL ALLELE ERREE ESE SLESLALEL LESS 


| AY Ril UL ee PE -AGHBER OF NOLL GhanncieNs AFTER ALINE FEED 


SNUL S THE CHAR USED aS THE FILLER CHARACTER. 
; #NOTE@: SFILLS SONTATNS THE NUMBER. Be PILLER CHARACTERS REQUIRED. 
¢eNOT E3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


SSCALL: 
:#1) USING A TRAP INSTRUCTION 
:# TYPE , MESADR 


:#OR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


$TYPE: TSTB STFFLG 3318 THERE A TERMINAL? 
HALT :THALT HERE IF NO TERMINAL 
BR 3 ;LEAVE 
1$ MOV :SAVE RO 
MOV Reise Ro ::GET ADDRESS OF ASCIZ STRING 


CMPB ss BAP TEN’, SENV : RUNNING IN MOD: 
BNE & ::NO,GO CHECK FOR APT CONSOLE 
BITB sAPTSPOOL, SENVM 3 3SPO0L MESSAGE TO RFT 


SEQ 625 33NO,G0 CHECK FOR CONSOLE 
MOV RO,61$ :SETUP MESSAGE aobRess FOR APT 
rd SR PC’ $ATY3 {SPOOL MESSAGE 12 ft 
623: BITE SAETCSUP, SENVM ;3APT T CONSOLE SUPPRESSED 
23: MOVB  (RO)+,-(SP) then CHARACTER TO BE TYPED ONTO STACK 
BNE 4§ ::BR IF IT ISN’T THE TERMINA 
ae ist eae a tte TERMINATOR POP IT OFF THE STACK 
33: BOD 2, (SP) i ADJUST RETURN PC 
4$: CHE aHT, (SP) ::BRANCH IF <HT> 
chee #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ : ;POP <cR><LF> EQUIV 
TPE ;;TYPE A CR AND LF 
CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
BR 23 :GET NEXT CHARACTER 
S$: ISR PC. STYPEC ::GO TYPE THIS CHARACTER : 
é$: CMPB Os SF ELL, (SP+ $31S IT TIME FOR FILLER CHARS. ’ 
BNE :: TF NO GO GET 


2 x 
MOV $NULL, -(SP) :;GET # OF FILLER CHARS. NEEDED 





MD-11-DZREM-C - RKELI/RKOG SUBSYS. VERIF , PART | MACYL1 27(1006) OS-OCT-76 10:13 PAGE 2cs SEQ O20 
DZREMC.P11 OS-OCT-7& 10:03 TYPE ROUTINE 
ite 000001 7$ ECB (SP) 4 A NUL To BE TYPED? 

{ ~ ¢ $3 ‘ 
18c85 ee ished rt iB i 4 tHe MULL SEF OF stack 
ibook Bes ree Sesare aEce SCHARCNT. iH: Nore COUNT” A A COUNT 

= ii 
: pee AezeSo BE 2 : LOOP 
Lorre 7 ;HORIZONTAL TAB PROCESSOR 
17078 052226 112716 o00040 83: MOVE sg’ : REPLACE TAB WITH SPACE 
10778 052332 004737 O523s2 9g: JSR Po, gt ebec ;;TYPE A SPACE 
10773 952236 32737 000007 ose416 BITB #7, SCHARCNT i BRANCH off NOT AT 
19 344 9013 BNE 93° T 
10781 OS2346 906726 TST (SP)+ + POP SPAC cE OFF STACK 
1078 052350 000 BR 25 ::GET NEXT CHARACTER 
10783 052352 0s 126572 STYPEC: TSTB d$T : WAIT ATIC PRINTER IS READY 
10784 052356 100375 RPL STYPEC 
10785 052360 116677 op00De 126564 MOVE  2(SP) a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA RES. 
13786 366 122766 O00015 iiaiata 2 CMPB 3=so&CR, 2 SP) 2:15 CHARACTER A CARRIAGE RETURN? 
10787 052374 9091003 NE 1$ +s 0Ren H IF NO 
10788 052376 195037 ose4is CLRB S$CHARCNT FES CLEAR CHARACTER COUNT 
197839 O524o2 0040s R STYPEX EXIT 
| 10790 OS2404 122766 oo0012 ooD0De 1S: CMPB) ts &LF, 2( SP) s3EX CHARACTER A LINE FEED? 
| 10791 O5e412 Oo14 BE STYPEX ::BRANCH IF YES 
10792 052414 10522 INCB = (PC) + :: COUNT rie CH 
10783 052416 000000 SCHARCNT: .WORD O >: CHARACTER COUNT CER RAGE 
, 10794 O52420 STYPEX: RTS PC 
| 10765 
10796 
eee 
107$9 ist DALE PRECISION MATIPLY SERUTINE 
| 19900 “SBTTL DOUBLE PRECISION MULTIPLY SUBROUTINE 
| {9801 :% SUBROUTINE TO MULTIPLY TWO BBUBLE PRECISION INTEGERS 
| 10802 i USES ALL REGISTERS (RO-RS) 
10804 1% ENTER WITH JSR PC,M.DPIM 
| 1080s 1# MULTIPLIER IN’ RE-R3 
10806 1 MULTIPLICAND IN RY-RS 
10807 is PRODUCT SPT RHED IN RO-R1-R2-R3 
108093 © KELL ASRAK KERALA ERAS SELES A EAE LEE LE LER AFARERFETRATELELEEFEAFETE 
| [0810 oSe422 noso00 A DPIM: CLR RO :CLEAR HI ORDER WORDS 
| 10811 052424 905001 CLR R1 
| 10812 052426 012746 oo0041 MOV #41,-(SP) :MOVE 33 (DEC) TO COUNTER 
10813 O52432 000 M:DPO1: ROR RO 
| 10814 052434 006001 ROR R1 
| 10815 052436 poe ROR R2 :SHIFT TO ADD 
15818 2440 O06003 ROR R3 
| 1081 442 103003 BCC M. DPO2 :NO CARRY NC ADD 
=~ 108le O52444 Ososol ADD RS,R1 
| 10819 oSe446 o0sso0 apc RO :ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
10820 Deco 960400 ADD R4_ RO : PRODUCT 
| 10821 0524 316 M.DPO2: DEC asp :DECREMENT COUNTER 
10822 052454 001366 BNE M.DPOL 
10823 O5245_ 005726 TST (SP)+ sREMOVE THE COUNTER 
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MO-1L1-DZREM-C - RKGLI/RKO& SUBSYS. VERIF. : MACYL1 27(1008) OS-OCT-76 10:13 PAGE 207 
DZREMC.P11 OS-OCT-76 10:03 oie E- PRECISION MULTIPLY SUBROUTINE 
19824 oS2e460 000207 RTS PC 
1Oees 
10827 rn SCRE MECISIN Divine aaticTC 
15858 “S8TTL NOUBLE- PRECISION DIVIDE SUBROUTI 
10829 :* SUBROUTINE TO PERFORM DOUBLE-PRECISION INTEGER DIVISION 
10830 :* USES ALL REGISTERS (RO-RS) 
.¢ 

10832 1% ENTER WITH SR PC,M.DPID 
10833 :* ND_IN ROR RO-R3 
10834 :# y a IN RY- 
1083s t+ REMAINDER RETURNED IN RO-R1 
10838 1% QUOTIENT RETURNED IN R2-R3 

¢ ps 
10838 mage ee see pierre ope ag tig teeing ontonat + age 
10839 oSe4s2 o12746 o00040 hOPID: MOV 840, - sCOUNTER FOR DIVISION CYCLES 
10840 SSENe5 O10446 OV RY. -(SP) :H 
10841 70 O10S46 MOV RS'-(5P) LO ORDER DIVISOR TO THE STACK 
log42 052472 O054e6 oo0002 NEG 2(SP) FORM NEGATIVE 
10843 O52476 O05416 NEG aSP : VERSION OF THE DIVISOR 
10844 052500 OO56&6 ooocoe SBC 2(SP) 
19845 052504 O61601 ADD aSP,R1 
10846 O52506 DOssop ADC R sPERFORM THE INITIAL SUBTRACTION 
1peue iy ie apres Bre ‘Beet sIF CARRY THEN OVERFLOW HAS OCCURRED 
{pede Reset? o4 BF -(SP) ‘THIS IS A LONGER LA ote Zag Y BI 
10850 o52520 103 M.DP4YO: ROL R3 
10851 O52522 006102 ROL R2 
0 2524 00610! ROL RI 
10853 O52526 906100 ROL RO 
10854 052530 905716 TST aSP sTEST “CARRY INDICATOR™ 
10855 052532 001410 BEQ mM. DPY) IF NO “CARRY” THEN ADD ELSE SUBTRACT 
10856 052534 o0So16 CLR asp :CLEAR UP FOR NEXT TIME 
10857 052536 66601 ooDD0e ADD 2(SP),R1 
10858 O52s42 9g0ss00 ADC RO sADD -(DIVISOR) 
10859 O52544 905516 anc asP : 1 SET “CARRY” 
10860 052546 O66600 ocooco4 ADD 4(SP) .RO':< 
10861 oOS25s2 900404 BR M.DP42 
10862 052554 Of60s01 M.DP4Y1: ADD RS.R1 
10863 O52556 905500 apc RO ; ADO (DIVIgOR) 
ee bee Beas Bo Renle ss 
10866 O52564 Oossis M.DPY2: ADC asp : ;SET "CARRY 
10867 O52566 905716 TST aSP : TEST THe uPoate INDICATOR 
10868 052570 001401 BEQ +4 :) IF ZERO 
10869 052572 905203 INC R3 : I :NO cer oy pe IBLE HERE 
10870 052574 O05366 oo00006 DEC B(SP) 3< ‘DECREMENT COUNTER 
10871 052600 003347 BGT M. DP4O ‘BR IF MORE TO DO 
10872 O52602 o06002 ROR R 

3 052604 103404 BCS M. OP4Y 
10874 OS2606 O60501 ADD ; 

875 052610 o0ss00 

10876 O&2612 O604 ADD R4,RO 
10877 052614 900241 CLC 
10878 OS2616 O06103 M.OP44: ROL 


R3 
10879 O0Se6e0 O6e706 000010 ADD #10,SP ;ADJUST STACK BY 4 WORDS 


















19832 


rititanctetr 


fo Dt UTE eo 
5 


bb he he 


000e42 
000207 
062706 


Ss 


Ov0006 


ooocde2 
nate 
000014 
177770 


o000Ce 


000060 





Sab i = RK611/RKO6 SUBSYS. VERIF. : PART 1 MACY11 27(1006) OQS-OCT-76 10:13 PAGE 208 SEG aed? 
DZREMC.P £5-0CT-76 10:03 


bouBLE- “PRECISION DIVIDE SUBROUTINE 


PC ‘ 


RTS aie 
M.OPSO: ADD #6, SP er 
SEV 
RTS PC 
.SB8TTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE ‘ 


5 EE RREE EEK ERER ERK E AE AE AER ER EERE ERE EAE EEE EEEEEE EERE REE EE ER EEEE 
:STHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
a OCTAL ASCIZ NUMBER. 


ts MOV #PNTR, -(SP) ; POINTER TO LOW WORD OF BINARY NUMBER | 
i ISR PC, esioeeo ::CALL THE ROUTIN 
1 # RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. ‘Is ON THE STACK 
$DB20: SAVREG sBANE BLL REGISTERS 

MOV 2(SP),R1 P THE POINTER. TO LOW WORD 

MOV WSOCTUL+13.,R5 peat TO DAT 

MOV #12. ,R VEN pene TER 

MOV #tC7 aa 

MOV (R1)4+,R0 Hie WORD 

MOV (R1)+;R1 ::HIGH WORD 

CLR :: TERMINATOR 
1S: MOVB  Re,-(RS) : PUT CHARACTER IN DATA TABLE 

MOV RO; Re GET THIS DIGIT 

DEC RY ;;COUNT THIS CHARACTER 

BGT 3$ °BR IF NOT THE LA SI DIGIT 

BEQ 2g :tBR IF IT IS THE LAST DI 

N ;3ALL DIGIT DONE -Abyust POINTER FOR FIRST 

MOY RS, 2(SP) *ASCIZ CHAR. T ON 

RESREG RESTORE ALL Sects ERS 

RTS PC : RETURN TO USER 
2g: ASR R3 POSITION THE MASK FOR THE LAST DIGIT 
33: ROR Ri Position THE BINARY NUMBER FOR _ 

ROR RO + THE NEXT OCTAL DIGIT 

ROR Ri 

ROR RO 

ROR Ri 

ROR RO 

BIC R3, Re 5 sMASK OUT ALL JUNK 

ADD #°O,Re 3M KE HIS C cI 

BR 1$ 33G0_P T It IN THE DATA TABLE 


SOCTVL: .BLKB 14. RESERV E DATA TABL 
*SBTTL. DOUBLE LENGTH BINARY TO BECIMAL ASCII CONVERT ROUTINE 


5 KEK KA ARAKI ERA EE REE RE RE AE ERA K HALE AEE EERE REA E ES ER ER AR ARE ERERES 
i ATHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
ppd rite eo? NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


te MOV sPNTR -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
- JSR , 2480820 





‘ 


: 


SEeey 


oo 


i 


f 


€ 


t 
“ 


RES 


Sree 


wo 


Hsciaiatataatataatatatatcd 


SREVBRPRGS VSR L2RB 


Se Rk aa raat aieene ae aren un 


$ 


RKGLI-RKOE SUBSYS. VERIF. : PART 1 MACYL1 27(1006) OS-OCT-76 10:13 PAGE 209 S€o 2206 
-OCT-7& 16:53 DOUBLE LENGTH BINARY TO DECIMAL ASCII OVER? ROUTINE 
:* RETURN :: THE FIRST ADDRESS OF ASCIZ 
*:1S ON THE STACK 
LO44O7 $0820: SAVREG _ :;SAVE REGISTERS 
g1g608 ooco0ge - MOV 2(SF),Re ;3PICKUP THE DATA POINTER 
12700 053140 MOV sSDECVL RO :3GET ADDRESS OF “SOECVL™ STRING 
610066 900002 MOV RO, 2(SP} T 5S OF ASCIZ STRING ON STACK 
012201 MOV (R2)+,R1 PICK THE BINARY NUMBER 
Ol220e MOV (Re)+' Re 
0127 goose 053056 MOV #10. ,4$ ::SET UP TO DO 10 CONVERSIONS 
TE 075 MOV 8S TNEWR, RY s:RODRESS OF TEN POWER 
612705 05307 MOV SSINPURSS. st 
1$: CLR FE, a AR PARTIAL 
161401 28: Sug ), Rl TRACT TEN POWER 
005602 C =i 
161502 SUB (RS), R2 
gests BLT EH BR IF F TENPOu PO R TO LARGE 
INC 3 
000772 is 3 tobe 
02401 23: ADO (R4)4+,R1 : SRESTORE SUBTRACTED VALUE 
pesane ABS (R4)+,Re 
022525 oMP (RS)+) (RS)+ :;MOVE TO text TEN POWER 
052703 900060 BIS 8°0,R3 ::CHANGE PARTIAL TO ASCII 
110320 MOVE 3, {ROD ::SAVE IT 
005327 DEC (Pt )+ : : DONE 
000099 4S: .WORD OQ 
901357 SNE i$ +3881 I 
105520 CLAB Es RQ) : TERMINATOR 
tal RESREG : RESTORE REGISTERS 
RTS PC +: RETURN 
STNPWR: 145000 :1.0£09 
35632 
160400 169400 ::1.0€08 
002765 5765 
113200 ll 331. 0£07 
30 230 
041100 041100 +:1.0E0& 
acre toae4o 1.0€05 
Boose 33420 1.0€04 
01 of 750 1.0£03 
shoae : 
090144 i44 31.0&02 
000000 0 
9000 12 l2 :31.0€01 
900000 0 
900001 1 3:1.0€00 
000000 6 
000014 STORAGE FOR ASCIZ STRING 


SOECVL: .BLKB le. SERVE 
-SETTL TYPE NUMERICAL ASCIZ static. SUPPRESS LEADING ZEROS 
5 FFREREPEP EAE RP REPEL A SR ERAA ESE SEPA ER RERESEARESERESRSELEERES 














Ren-C ‘B1l/Rk UBSYS. VERIF. : Y1)_27(1006) OS-OCT-76 10:13 PAGE 210 SEG Sed 
C.Pil S-0CT-76 10: TYPE "RUMERICAL asciz erBind SUPPRESS LEADING ZEROS 


ears EASING NEERS. USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


ww 




















10995 yo MOV SNUMADR , - ( SP ) ;;FIRST ADDRESS OF ASCIZ STRING 

ies :* ISR PC, asSSUPRS 

1 

10998 

aan pesis* Stet eooren $SUPRS: a RO 5m SBI cx P THe POINTER 

Her ue Gis mg iat Delite 

1s OS3164 1403 BESO : BR I YEE 

il OS3186 i © 000060 CMPS ik (RO)+ its THIS AN ASCII “0” ” 

11004 053172 177 BEQ ts 3:88 IF YES 

1100S 953174 es: DEC 0 :;BACKUP BY “1” 

ii 17& 053204 MOV RO,3$ +3 SAVE FOR TYPING 

1100 104401 TYPE - 3360 TYPE 

11008 peace? 33: WORD OQ 73 ASC Z POINTER GOES HERE 

11009 06 012600 MOV (SP)+,RO ;RE RO 

11010 OS3210 O12616 my (SP), (SF) : {RESTORE THE STACK 

11011 OSsele 000207 RTS PC TURN 

11016 LSETTL BINARY TO OCTAL (ASCII) AND TYPE 
ave 

11014 + SESSRSSSSSESESSSSSSSSSSLLSSSSSESSLSLESSSSLELSSSAELAESELLALSERES 

11015 THIS Roe SS ue re nw A 16-SIT SINARY NUMBER TO & €-DIGIT iz 

11016 :#0C Te (ASCI 1) YPE IT. 

1iete — S ueee TO ae TU SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
ws -, 

11015 :# ” MOV NUM, - (SP) ;NUMBER TO BE TYPED 

11020 :# TYPOS $ EAL FOR TYPEOUT 

11022 :# -BYTE WN - 3;N=l e FOR NUMBER OF DIGITS TO TYPE 

110e¢ 72 -BYTE % ::M=l OR 

1iDE3 7# ote: ADING ZEROS 

ii? :# 3u= ss LEADING ZEROS 
ee :* 

11026 #$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

11S i$ TYPOS OR $TYPOC 

11029 :# ey NUM, -(SP) ;NUMBER TO BE TYPED 

tet ;# YPON CALL FOR TYPEOUT 
vs .* 

1s —— — HERE FOR TYPEOUT OF A 16 BIT NUMBER 

11034 :# MOV NUM, -( SP) sNUMBER TO BE TYPED 

11h :# TYPOC CALL FOR TYPEOUT 

11037 ° 053214 O17646 900000 STYPOS a(SP),-(SP) 7 PICKUP THE MODE 

11038 OS3e 116637 eget 053437 MOVE be) ae >;LORD ZERO FILL SWITCH 

11033 OS3e2e6 112637 ] MOVE (SP)+,$ :;NUMBER OF DIGITS TO TYPE 

iioat Sese3e Doowse OOOO ee M4 “ngewe pened estas 

ih 053240 11er 2 000001 053437 S§TYPOC: MOVE #1, SOFILL ;SET THE ZERO FILL SWITC 

ii OS2246 11 090006 05344) MOVE 86, SOMODE+1 ttSET FOR SIx(&) DIGITS 

11044 OS3254 ii2737 O0000S OS3436 S§TYPON: MOVB #5, SOCN 33 SET THE ITERATION COUNT 

11045 sete 010346 MOV R3,-( i AVE R3 

11046 OS3c64 O1D44E MOV 7 

11047 OS3cebE CLOSE MOV .7 


















O1 








RKGLIVRKOE SUBSYS. VERIF. : PART 1 MACYLI 2711006) OS-OCT-76 10:13 PAGE 21: Sto 2210 
DZREMC. oS-0c7-7— 10:03 BINARY 70 OCTAL (ASCII) AND TYPE 
11048 OS3270 113704 oS344) MOVE SoMODE+1 4 ::GET THE NUMBER OF DIGITS TO TYPE 
11998 Sey 404 NEG 
| Lids Sese7e Ose7O4 0000 co, aby : SUBTRACT IT FOR MRK. ALLOMED 
1B eed i teS3) 523735 ss sche RS ::GET THE ZERO ia SWITCH 
11053 Sele 1660S 00012 MOV i (SPi ‘as 7 : PICKUP THE INPLT NUMSER 
11054 ig cur 3C THE OUTPUT WORD 
11085 053320 956158 18: Bo Re :380 gre mSB INTO “C 
11057 Seas 006105 23 ROL RE ::FORM THIS DIGIT 
11058 063326 906105 ROL RS 
11058 053330 006105 ROL ze 
11060 053332 610503 MOV RE, R2 
11061 953334 O06] 2S: ROL RS :;GET LSB OF THIS DIGIT 
il 053335 1 0 DEce $2MO0E :: TYPE THIS DIGIT? 
11 053342 100016 BP. ? ::BR IF NO 
11064 053344 per os 177770 1c 8177770,R3 $391 RID OF JUNK 
11065 pe250 1002 BN 3; TEST FOR 9 
tides pesseg Boece OCS res 
Hibbs Desaes pease iN e R3 Bow eater 
il 053364 Seso3 S$: ete 3 ae asc I +8 NOT ALREADY 
11073 053370 11033 0534 nove P28 $3 SAVE FOR TYPI! 
ll 053374 104401 0534 T 3g G0 ype THIS OIGIT 
11073 053400 105337 O6343¢ 7$: DECS «~2=s« SOCNT >: COUNT BY 1 
«LBS GEE Seen? fe Go ier ie pone 
| 11076 05341 Speen he ST ENSURE. LAST DIGIT ISN'T A BLANK 
| 11077 OS34i2 900744 oe 2g ::G0 DO THE LAST OIGIT 
11078 053414 9512605 6S MOV (30 )+. RS ::RESTORE RS 
11079 OS34i¢ 012604 MOY (SP) 4° Ro t:RESTORE RY 
11080 053420 612603 MOV (5P)+'R3 t:RESTORE R3 
| i081 OS3422 CIesee cOcoDe ocoD004 MOY 2(SP)/4( SP) $:SET THE STACK FOR RETURNING 
| [1082 O53436 Oi2eie MOV (SP)! (SP) 
| 11083 053432 od60002 RTI ; ; RETURN 
11084 953434 995 2g BY 9 : STORAGE FOR ASCII DIGIT 
11085 5 -BY 3; TERMINATOR FOR ROUTINE 
11086 36 000 SOCNT: BY ::0CTAL DIGIT COUNTER 
11087 053437 p06 SOFILL: [BY ::ZERO FILL SWITCH 
| 11088 O53440 00006 SONODE: -WORD_ o $3 OF Digits TO TYPE 
32088 “SETTL CONVERT BINARY TO DECIMAL’AND TYPE ROUTINE 
| 11091 5 REEPRSSSESEESESESESAE EES LSLESESEFALELALASSASELALESLLAALELELA LES 
| 11092 ;#THIS ROUTINE IS USED TO CHANGE A Ig-BIT BINARY NUMBER TO A S DIGIT 
| 11093 :# DECIMAL (ASCII) R YPE IT. DEPENDING ON WHETHER THE 
| 11094 ; IS POsiTIVE OR NEGATIVE @ SPACE OR A MINUS SIGN WILL BE T 
| 11095 :#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
11096 #R WITH SPACES. 
3 FL H 
# Y NUM, -(SP} :3PU ’ . 
| 71068 MO Sp PUT THE BINARY NUMBER ON THE STAC 
11038 # TYPDS :;G0 TO THE ROUTINE 
| 11101 os244e STYPDS 
1lid@ O83442 o1004¢ MOV 
| J1I03 O53444 O10i46 MOV 
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(PUr 00D UTE sctesteamamtoertbesae 
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VERIF. 


000001 
OS36S6 
000040 


177777 


177776 


00000e 000004 


EO] 


: MACY11 27( 1006) 
tohvERT "alnemy TO DECIMAL AND Tyee” BUTI 
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MOV R2,-(SP) :;PUSH R2 ON STACK 
MOV RS. (3 : PUSH R2 ON oN stack 
MOV 2: PU TACK 
MOV 234206, - 2 isp) ::SE aaK suiTcH ato SIGN 
MOV ) Rs ::GET THE INPUT 
45 : BR rF neu is Pos. pcs 
18 bye RS 1(SP) 73 “ ite RECIT NUMBER NES. 
OV #$DBLK,R2 HE oe THE tia OINTER 
MOVE 8° , (R3)4 +: SET uETBST CHAR TER TO A BLANK 
2s: CLR ee POL aR 
MOV TBL(RO),R1 3:GET THE CONSTAN 
3S: S Ri,RS $s ORM THIS BCD DIGIT 
Bt 4§ :38R IE 
INC Re :: INCREASE THE BCD DIGIT BY 1 
4S: ADD R1,RS :;ADD BACK THE CONSTANT 
TST R2 5 3 CHECK IF BCD OIGIT=0 
S$ EOL THROU 
TSte = (SP) PISTILL DOING LEADING 0°S? 
SMI 7§ ::BR IF YES 
S$: ASLB (SP) 33 
ae 1 ).-1(R3) eles TT GN 
6$: BIS a BR SEMaKE THE BCo Bett ASCII 
7§: ae 2 ::MAKE IT A SPACE IF NOT ALREADY @ DIGIT 
MOVE Re tR3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + ::JUST INCREMENTING 
CMP Ro. 810 :: CHECK THE I 
BLT 2 3360 00 THE NE pict? 
867 8g :G0 TO EXIT 
MOV RS, Re tier THE L 
3R & $360 CHARGE 0 ASCI 
gS: TSTB Os SP) :WAS THE LSD THE FIRST NON-ZERO? 
BPL 9g ::BR IF NO 
MOVE = -1 (SP), -2(R3) ive --SET THE SIGH FOR TYPING 
CLRB 3s (RB) ::SET THE TERMINA 
MOV (SP)}+,R5 ::POP STACK INTO 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (5P)+'R2 ::POP STACK INTO R 
MOV (3P )+,R 5 ;POP STACK NTO RI 
MOV (SP)+ :POP STACK INTO 
TYPE $D8LK SNOW TYPE THE NU 
MOV BC SP), 4(SP) !:ADJUST THE STACK 
MOV (SP)+) (SP) 
RTI ;;RETURN TO USER 
SOTBL: 10000. 
1000. 
100. 
19. 
$OBLK: 
-SETTL E OR HANDLER ROUTINE 


er ititititiittititiiitititititiitititisitititiisisesiserereresy 
t ATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


SEG S211 








MO-11-C2REN-C - 
DZREMC.P1i 
11 
11 
i 
li 
11 
11 
il 
li 
1) 
il 
1} 
11 
1i ze 
ii 74 
il 
11 i 
1 0S37ie 
i 053716 


BBB RR Po CSBP RO Bsa AAI SSS GEAEeO a 
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1 

1 

1 

bf 

1 

1 

1 

i 

1 

1 

1 

1 

lll 

lll 

lli 

lil ES 
1411 

1ll O0S374e2 
ait w53750 
tite? Bester 
iiiEe | Gesoe8 
tiie Gese86 
tiiBe bes558 
lll 054005 
lll 054004 
Mill 954005 
lil 4 
lll OS401 
Mli 054014 
llj OS4016 
lll 0540209 
1ll oS4026 
lll 054030 
lll os4034 
ti5hy Beapas 
Like Gos 
11204 O540S4 
11205 40S 
11206 954060 
11207 OS4#060 
11208 

11203 

ll21o 

liell 

11212 

1ie13 

1121 

llels 
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0S-0C7-7— 10:03 ERgoR NANBLER ROUTINE 
: SAVE Jt of ioead ia eee AND THE ADDRESS OF THE ERROR CALL 
: iste, SirT OPTIONS PROVIDED SY THIS ROUTINE ARE: 
‘Seyi 3s ite mT fr Feece TYPEOUTS 
:#SW1O=1 BELL ON ERROR ; 
i #euC3=1 es ON ERROR 
: ERROR N :ERRORSEMT AND N=ERROR ITEM NUMBER 
SERROR: 
105237 001103 7§: INCE = SERFLG ::5E7 THE FLAG 
x BEQ 7§ ;;DON’T LET THE FLAG GO TO ZERO _ 
3508 001102 125246 nov SisTwM, aDISPLAY i DISPLAY TEST NUMBER AND ERROR FLAG 
bat aae y 3 " : fH - Sarr 
bossa? Soltis 1s Ine SERTTL siaine Bs R OF ERRORS 
031637 1116 ne *0V Ses SERRPC i COUNT THe wee OF ERROR INSTRUCTION 
t 25156 petits ae et TEMS :;STRIP AND SAVE THE ERROR ITEM CODE 
. . v 3 i 
ee 125170 BIT #81713, soe ::SKIP TYPEOUT FC, 
001904 BNE ° SKIP TYPEOUTS 
004737 Oucits ISR Be TYPERR ::G0 TO USER ERROR ROUTINE 
104401 00131 fa Type} 3=—-—s«s SRF 
122737 000001 001340 " sOMPR='s«SAPTENV.SENV —s- sRUNNING IN APT MODE 
00. BNE i >;NO,SKIP APT OR 
1i3 901114 os4o04 MOVE 5, 218 ::SEt ITEM NUMSER AS ERROR NUMBER 
004727 ISR sary :;REPORT FATAL ERROR T 
000 218: BYTE 
000 .BYTE 0 
000777 223: R 223 :;QPT ERROR LOOP 
005777 126124 2s: TST aSHR ss HALT ON ERROR 
100001 BPL 33 ::SKIP IF CONTINUE 
000090 HALT ::HALT ON ERROR! 
032777 O01000 125112 2§: git 881709, aSWR ::LOOP ON ERROR SWITCH SET? 
001402 G 4§ ::5R IF NO 
613716 001119 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
aheo3e 1306 4$; TST SESCAPE !:CHECK FOR AN ESCABE ADDRESS 
001402 BEQ 5§ ::BR IF NONE 
013716 001306 ka MOV SESCAPE.(SP)  ::FUDGE RETURN ADDRESS FOR ESCAPE 
922737 o2esose oocd42 CMP 8SENDAD, a842 art 11 AUTO-ACCEPT? 
1001 BNE &$ :;BRANCH IF NO 
000080 - HALT 3; YES 
oosnde : RTI : ; RETURN 


-SETTL TTY INPUT ROUTINE 


: POTUTTTE CITT TIT TT ITi Titi trittiitititiiitititiittititittititti 
LSB 


* ENABL 
.DSABL 


LSB 


SEG 


0212 
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fturururu 
o-+ bb 
wow 


SOD SRST 
a 
BS 


0+ = B= 0 20 0 & = 2 bo Bo po 


Sesh 
NE 
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—7r0 


i: 
eee 


PERE SRN TIES Bes Mee Corae O SN PIS 


at) 
3 
R 
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+ b= 0 = b= b&b &* 40 —* B+ Ob  —* B-* bb -  -2 0 8 O-* ob 2 b -2 ~~ B+ 2 B- 2 B+ OP —2 0 & + B&O 2 a ho he 0-0 20-0 +b 9 -<p-< & « »-< p-->- & < B= 9-0 
m 
o 
won 
+ + 
ol 
oO 


+0 -+ 0 +0 = 0+ bb 6 — b+ b= bb 8 -* + = 8 0 0 bo + 0-2 2 bs 0-2 Oo & 2 2 Bs 2 hs 2 2 2 Be Oo he 
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sys. 
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VERIF. 








PART 1 
ity INPUT ROUTINE 


icare ROUTINE lL, INPUT A CINGLE CHARACTER CRON THE TTY 
:ATHIS ROUTINE WILL INPUT @ SINGLE CHARACTER ROM THE T 


soo way SEE, 
1$ TSTB 
SPL 


MOVE TKB,4(SP) 
Bis thas 4(SP) 
}, #23 
BNE 3$ 
es: TSTB asTKs 
BPL 


1$ 

38: erp 4(SP), #140 
T 4§ 

CMP U<SP), 8175 


GT 

Bie #40,4(SP) 
CNTLU: ASC12 /tU/¢15><12> 
ENTLG: .ASCIZ 7t67«15><le> 


MSWR: .ASCIZ <15><12>/SWR = 


SMNEW: .ASCIZ / NEW = 


-SBTTL POWER DOWN AND UP ROUTINES 


:POWER DOWN ROUTINE 
$PWRON: HOV #SPWRUP , PWRVEC 


72 
DOWER Up ROUTINE ect 
4§: asi fhe SPHACT 
BNE 4§ 
MOV SP c 


MOV PR? . TRAPVEC+2 


Tree ‘Puneet 
RESET 


JMP DSLPADR 





MACY11 27( 1006) 


;SET VECTOR FOR POWER UP 
HANG UP 


;WAIT LOOP FOR TTY TO COME UP 
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3; INPUT A SINGL ne et R FROM THE TTY 


i SPTn Baki re BIT Y Se epes* OFF 


HABIT F ee "te - EF 
¢ OOP UNROETER 
: MAKE | IT 7-B1T ASCII 
::IS IT A CONTROL-Q? 
i 1F NOT DISCARD IT 
ti TEty"UBBER case? 
H IF YE 
3318 ITA SPECIAL CHAR? 


r S$ 
: MAKE IT UPPER CASE 
3;G0 BACK TO USER 


;;CONTROL “U" 
_ HCONTROL “¢" 


;SET VECTOR FOR POWER DOWN 
;RE-ESTABLISH POWER AND TRAP PRIORITIES 


ASPIRE TEST 
Ce aR THE UNIBUS 
;RESTART THE CURRENT TEST 





: 


ide 


0+ b= b= b= B= Bo Be Bo 
otal 


fururu 
3a 


ae 


WWI WOIWWOIWIGW 
2 0-2 b= § 2&0 B= B0 Bh pe 
WO NOU £WMe-O 


o-+ b+ bb = bP Bb + 8 0 8 OB = 0 0 2 8 = 2 2 = 2 bs bs 8 2 9-2 0 & 2 Bo 02 P02 | 2 +0 + 0-- 0 -+>-< & + b= b+ b= & #0 
RRR ta 


0 B02 bs sb 0+ © Fs B00 h- 2 b* &* Bo be ho = 0b B= ob ~2 Bo 2 be Bs Be = Bs Bs he be Bb 0 fe BO hs he bo hs Fhe Be he 


uw 
LAY 
™N 


SI isisint naa aeo tt bonita 


M-C - RKE a 


0S-0CT- 


aE 
me 
001402 


047520 
Q4OS06 
00SCi5 


001103 
001900 
001110 


001304 


M  etics 


1e4SS6 


124532 


001103 
Le4446 


HO 1 
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POWER OWN AND UP ROUTI 
SPWRCT: .WORD 0 
PWRMSG: .ASCIZ <15><12)>/POWER FAILED/<15><1e> 


. EVEN 


; LERFREPEEELERERASRESAA SALLE RAL AL ERAT ESE ER EEE LEER EEEESE EERE ES 
ih SCOPE] - INTERNAL SCOPE ON ERROR ROUTINE 


;*#CALLED BY “SCOPER™ 
SESSLER EER FEAL LEE REALL EL ER ALEALL EE EEAA ALLL EE REALL ELE LESS SEES 


biopes: 1S78 SERFLG sSEE IF A. ERROR HAS OCCURRED 
Bf SITS, aSUR ieee IF LOOP ON ERROR DESIRED 


BEQ :BR IF NO 
MOV —« SLPERR, (SP) i SET ERROR LOOP ADDRESS ON STACK 
b$: RTI t RETURN 


-SBTTL SCOPE HANDLER ROUTINE 


Bae gr ie re ge oe eg ge op 
dr THIS autre ¢ TROLS THE OOF ING OF SUBTESTS. IT WILL INCREMENT 
:#AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY_REG. (DISPLAY<7:0) ) 
;#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:99> 
j#THE SHITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


*SW14=1 _ oe 
:#SWl1=1 INHIBIT ITERATIONS 
:#5W09=1 LooP ON ERROR 
: SCOPE ; ;SCOPE=I0T ° 
SSCOPE: 
TST $T INES ;CHECK CURRENT ITERATION NUMBER 
; BEO $xTSTR ‘BR IF 0, 10 SKIP CHECK OF SUR BIT 14 
1S: BIT #8IT14, aSWR ; ;LOOP ON PRESENT TEST? 
BNE SOVER F SW14=1 
paaeeeSTART OF CODE FOR THE XOR tisTeRsesns 
$xTSTR: BR 6$ ssf RUNNING ON THE “KOR™ TESTER CHANGE 


THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV DHERRVEC, - (SP) si THs THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, J#ERRVEC 33SET FOR TIMEOUT 
TST 38177060 * TIME OUT ON XOR? 
nov (SP )4 DSERRVEC ::RESTORE THE ERROR VECTOR 


5380 TO uy 3 NEXT That 
SS: CMP Gare (SP)+ CLEAR THE STACK AFTER A TIME OUT 
MOV (SP) +, HERRVEC ; ;RESTORE 5 Te ated VECTOR 


BR SENT TEST 
&$:;##eR8END OF CODE FOR THE XOR eo eR beens 
23: TSTB = SERFLG ; HAS BN ERR OR OCCURRED? 


3$ 
CMPB © SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
BIT #81709, ISWR ::LOOP ON ERROR? 


SEG 0214 
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MD-11-DZ2REM-C - RKG1I/RKDG SUBSYS. VERIF. : PART 1 
DZREMC.P11  OS-OCT-76 10:03 SCOPE HANDLER ROUTINE 
11328 osti72 91404 BEQ 43 :;BR_IF_NO 
11329 054474 613737 001110 OO1106 7S: MOV SLPERR, SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
iy be 3 } 4 ee RF RO THE ERROR. FL 
us $ +3 
ieee oS 10 001 éLR i a aay Be He BOF TTERATIONS TO MAKE 
ll 4514 le BR ESCAPE. ne THE oREXT 
fee 6 777 OO400D 124414 3$: a : SIT11, aSWR :: PY premio 
q 453 3537 DOL304 001104 oNP TIMES, SICNT it gece Te NIER OF ITERATIONS MADE 
Lise reves 127 1 001104 18 ney sD ie at F AFTON COUNTER 
11340 Rede pigeas peneee 001304 MOV sich NSTIMES ae a Reh TO BO 
igus Geuses ttSs37 DOLtOS pose te eet etestn MAILBOX 
a 
11343 054570 otic? Bot ibe MOV sien nt STES + Ee TTS Jun LOOP aR IN OPT. 
11344 054574 011637 001110 MOV (SP)’ SLPERR ::SQVE ERROR LOOP ADDRESS 
| 11345 054600 005037 001306 CLR SESCAPE j CLEAR T THE ESCAPE FROM ERROR ADDRESS 
He seis fet BR LUE gover, GBP HeFR SL cay (iPlay AMGEN gon ON NEXT TEs 
UU 4 33 
114g Bededs piste BBt nov Apis "a0I8 ae eTUih ADDRESS 
11349 O54624 o0000e 
11250 OS4626 003729 SMXCNT: 2000, Mes MMOER OF ITERATIONS 
11351 .SBTTL COMMUNICATIONS “pet 
te 054630 ’ giv: Nove” al,SFELG:10 REPORT CATAL ERROR 
11 112737 900001 osso74 Yl: MO #1,$FFL :;TO REPORT FA RRO 
izes 4636 hers ete pees Hate Nove #1 sete ::16 TYP 
11 4644 ce satyc 
11357 OS4646 112737 000001 OSS074 SATY4: MOVB  #1,S$FFLG ;;TO ONLY REPORT FATAL ERROR 
11358 oOS4es4 SATYC: 
11359 OS46S4 O10046 MOV RO,-(SP) ;;PUSH RO ON STACK 
11360 OS4656 010146 MOY R1’-(5P) ; PUSH Rl ON STACK 
| 11361 O54660 105727 osso72 TSTB © SMFLG ;;SHOULD TYPE A MESSAGE? 
| 11362 OS4664 001450 BEQ c$ ‘IF NOT: BR 
| 11363 OS4666 122737 o00001 001240 CMPB ss BAPTENV, SENV : OPERATING UNDER APT? 
11364 054674 001031 BNE T: BR 
11365 OS4676 132737 000100 001341 BITB § s8APTSPOOL, SENVM $ SHOULD SPOOL MESSAGES? 
11366 054704 601425 BEQ 3$ IFN 
11367 054706 017600 MOV a4(SP) RO GET NESSAGE ADDR. 
11368 O5471e 062766 000002 opo004 ADD #2.4(SP) BUMP RETURN ADDR. 
11368 054720 005737 001320 18: TST SMSGTYPE ;;SEE IF ‘bone W/ LAST XMISSION? 
11370 054724 001375 BNE 1 isTF NOT: WAIT 
11371 054726 010037 001334 MOV RO, SMSGAD PUT ADDR it MAILBOX 
| 11372 054732 105720 2s: 7ST8 Ss (RO) + ::FIND END OF MESSAGE 
| 11373 054734 001376 BNE 2g 
11274 054736 163700 001234 SUB $MSGAD, RO ;;SUB START OF MESSAGE 
| 11375 054742 ASR sO GET MESSAGE LNGTH IN WORDS 
| 11376 O54744 010037 091336 MOV RO, SMSGLGT - ‘PUT LENGTH IN MAILBOX 
11377 p47e0 ble? 27 000004 001320 HOV #4) SMSGTYPE ::TELL APT TO TAKE MSG. 
11 47 1 5 38: MOV 4(SP).4$ ;;PUT MSG RODR IN JSR LINKAGE 
| HE Geared psn Roy SHS, OR UR NaN 
| 11381 054774 O13746 177776 MOV 155776 -(SP) : PUSH ibhrre on ON S 
| 11382 Os 004727 052140 ISR PC $TYPE *:CALL TYPE MACRO 
| 11383 055004 Of9050 4 WORD . 
| 
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DZREMC.P 05-OCT-76 | APT COMMUNICATIONS ROUTINE 

11384 OS5S006 S$: 

11385 OSS006 105737 osso74 i0$: STB  SFFLG ;;SHOULD REPORT FATAL ERROR? 
113868 OS5012 O01416 BEQ 123 t:IF NOT: 

11382 055014 O03 001340 Bt SENV : : RUNNING UNDER APT? 

11389 beens poa3k3 001320 118 TST dfectyPE ::FINISHED LAST MESSAGE? 

Ht33y BEeCSR Brees? 2 ce 6 oAdtcp) seat "ERROR. a 

+1332 REESE O22 siete ) #2, 4(SP) hy +s RETURN ADDR. 
11333 o55044 005237 901320 i. INC sHecTYPE ss TELL Abt TO TAKE ERROR 

+1332 peesed 1Ge03¢ REES4 KLE LFL Het AR Bo EL 

11398 OS5060 105037 055072 CLR8 © SMFLG LEAR MESSAGE FLAG 

11397 055064 012601 MOV (SP)+,R1 : BOP STACK INTO Rl 

11398 OSS5066 012600 MOV (SP )+;RO $5POP STACK INTO RO 

11399 955070 7 RTS Po 

11400 055072 00 LG: .BYTE O :IMESSG, FLAG 

11401 055073 000 SLFLG: .BYTE 0 F 

11492 055074 000 SFFLG: .BYTE 0 tT EATAL FLAG 

11403 OSSO7E "EVEN 

11404 099200 APTSIZE=200 

11405 000001 QPTENV=001 

11406 000100 APTSPOOL=100 

11407 000040 APTCSUP=040 

11408 .SBTTL ROUTINE TO SIZE MEMORY 

Hatt : rr pemsonsammnmapte-setespanaet ae CDSE EN 

1411 

11412 ii JSR PC, $SIZE ; 

11413 

11414 HSLSTAD WILL CONTAIN: 

11415 i WITH KT11 OPTION =- LAST VIRTUAL ADDRESS OF THE LAST BANK 
11416 WITHOUT KT11 OPTION -- RST ABSOLUTE ADORESS OF AVAILABLE MEMORY 
11417  SSLSTBK WILL CONTAIN THE LAST BANK AS A SAF 

11418 j#SKT 11 IS THE MEMORY MANAGEMENT KEY 

11418 #81 TO? = o DON T USE MEMORY 

11420 MUST E SETUP BEFORE THE CALL 

11421 HaBIT1S = 0 DON’T HAVE MEMORY MANAGEMENT OPTION 

ive :# DETERMINED BY ROUTINE 
11424 OSSO7E oO10046 $SIZE: MOV RO,-(SP) ;;SAVE RO ON THE STACK 

11425 O55100 O10i46 MOV Ri’ -(5P) ::SAVE R1 ON THE STACK 

11426 OS5102 O1d546 MOV Re, - (SP) j§ SAVE Re ON THE STACK 

11427 O55104 O10346 MOV :SAVE R3 ON THE STACK 

11428 OS5106 013746 oOD004 MOV Re ERRVEG -(SP) SAVE PRESENT ERROR VECTOR PS 8& PC 
11429 OS5ii2 013746 900006 MOV aHERRVECI2, -(SP) 

11420 OS5116 O10600 ia: rie vervecte P. RO. ee “present oene THE STACK POINTER 

11432 OSS120 104400 hg HE AAP ;;PUSH OLD PSW AND PC ON STACK 
11433 055122 012637 oo0006 MOV (SP)+, QUERRVEC 2 --SQVE THE PSW IN a#ERRVEC+2 
11434 O55126 612701 003776 MOV #3776/R1 ;;SETUP_ ADDRESS 

11435 055132 105727 TSTB 3s (PC) + :USE MEMORY MANAGEMENT? 

11436 055134 O00200 $KT11: .WORD 200 get TO USE MEMORY MANAGEMENT 
11437 055136 100062 BPL SCORE 

11438 O55140 012737 osSe76 cODoo4 MOV #SKTNEX, DHERRVEC ; sSe FOR TIMEOUT 

11438 OS5146 005737 177572 TST aaSRO ::KTI1 ARE YOU THERE? 


? 
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BREE BRA RELORKOR BLE ROUTINE Td SIZE MEMORY 7 om 


“ue sige 052737 100000 0os5134 BIS #199000, SKT11 ss YES--SET KT Sage Lomo tN 
ee ee 
11444 172 Biss 406 177740 1S: MOV e308 ARS -40(R2) Hie a = wk UP, eee 
we pH Tee oo9200 AbD $300" » (hes tite Te R NEXT “PAR” 

tds abe BS i$ + CPOE FOR ALL EIGHT ARE LOADED 
1448 055210 012742 177600 MOV 1137600, -(R2) SETUP OKIPAR? FOR 1/0 

1448 055214 o0So42 CLR -(R2) :SETUP KIPAR6 FOR TESTING 

i O55216 O1e73? gss234 99004 Nov ass GHERRVEC ss CATCH TINEQUT I NO SR3 

ges Reese eat pon B 5°) ice -11 HAS A SR3 REGISTER 
1453 055234 022626 $: CMP (SP)+, (SP)+ i LEAN OFF T STACK--NOSR3 
1454 055236 005237 177572 $: INC a#SRO’ URN ON MEMORY MANAGE 

1455 O55242 012737 OSS266 oO0004 MOV #SKTOUT, QHERRVEC':;SET FOR TIME OUT 

1456 055250 005737 143776 4$: TST at 4 43776 ifges ON NON-EX-MEM 

1457 055254 062712 O00040 ADD *:MAKE A 1K STEP 

1458 023712 172356 CMP SaKIPOR?, (Re) 3 LAST ONE? 

1459 OS5264 101371 BHI 4 :NO--TRY IT 

1460 011202 SKTOUT: MOV (R2) Re :iGET LAST BANK 

1461 055270 005037 177572 CLR a#SRO >: TURN OFF AENORY MANAGEMENT 

1 055274 900421 BR $SIZEX 

1463 76 042737 100000 055134 S$KTNEX: BIC #100000,SKT11 _ ;;KTLJ NON-EXISTENT 

1464 012737 055334 000004 SCORE: MOV 8SCROUT, QHERRVEC’ ; ;SET FOR TIMEOUT 

1465 055312 CLR R ET 

1465 14 062701 o04000 1S: ADD #4000,R1 : INCREMENT BY 1K 

1467 055320 O62702 oo0040 ADD #40, Re 1K STEP 

1468 055324 OOS711 TST (RIS : TRAP ON TIME OUT 

1469 OS5326 022701 177776 CMP #177776,R1 LAST ONE 

1470 055332 001370 BNE 1 : tNO--TRY AGAIN 

1471 055334 162701 004000 $CROUT: SUB #4000,R1 

1472 O55340 162702 oo0040 $SIZEX: SUB #40, Re 3 DROP BACK 

1473 055344 010006 MOV Ro, SP *RESTORE THE STACK 

1474 46 012637 oo0006 MOV (SP)+, JHERRVEC+2':;RESTORE ERROR VECTOR 

1475 055352 012637 o00004 MOV (SP)+; J#ERRV 

1476 055356 010137 o55400 MOV R1,$LSTAD 5 LAST RODRESS 

1477 055362 010237 os540e MOY Re. SLSTBK >:LAST BAN 

1478 O55366 012603 MOV (SP)+,R3 : : RESTORE 3 

14739 055370 Ol260e MOV (SP)+; ; ;RESTORE Re 

1480 055372 O12601 MOV (SP)+'RI *:RESTORE Ri 

1481 055374 012600 MOV (SP)+/RO ttRESTORE RO 

1482 Os 000207 RTS PC 

1483 O55400 o00d00 . SLSTAD: - WORD : CONTAING THE LAST ADDRESS 
1484 Os6402 oo0000 - SLSTBK: WORD :CONTAINS THE LAST BANK 

148s -SBTTL SAVE AND RESTORE RO-RS RALITINES 

1487 :  LELER FLERE AASLERELLA LAHSA AAAA SSA RARAKRA LARA ALAA RAA SESE ERALEREEEE 
1488 j SSAVE RO-RS 

1489 ii : 

1490 SAVREG 

1931 {UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

1493 i STOP---(+16) 

1494 + +2---(+]8) 

1495 + woe ene 
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SAVE AND RESTORE RO-RS ROUTINES 

3% +6---R4 

# 49---R3 

3#+10---Re 

:#+12---R1 

:#+14---RO 

SSAVREG: 
MOV RO, -(SP) ;sPUSH RO ON STACK 
MOV R1;-(5P) ::PUSH R1 ON STACK 
MOV R2'-(SP) ::PUSH Re ON STACK 
MOV R3,-(5P) PUSH RS ON STACK 
MOV R4'-(SP) PUSH R4Y ON STACK 
MOV RS,-(SP) ;3PU ON S 
MOV 2(SP),-(SP)  ;:SAVE PS OF MAIN FLOW 
MOV 2(5P)'-(SP)  :SAVE PC OF MAIN FLOW 
MOV 22(5P);-(5P) 3:SAVE PS OF CALL 
Mov 22(SP)'-(SP) 3:SAVE PC OF CALL 

chs = RO-RS 

ent RESREG 
MOV (SP)+,22(SP)  ; ;RESTORE PC OF CALL 
MOV (SP)+' 22(SP) RESTORE PS OF CALL 
MOV (SP)+'22(5P)  :RESTORE PC OF MAIN FLOW 
MOV (SP)+,20(5P) — ;;RESTORE PS OF MAIN FLOW 
MOV (SP)+/RS ::POP STACK INTO R 
MOV (SP)+)R4 ::POP STACK INTO RY 
MOV (SP)+'R3 3;POP STACK INTO R3 
MOV (SP)+'Re :POP STACK IN NTO R2 
MOV (SP +, Rd tt pop STACK INTO RI 
Moy (SP)+'RO *:POP STACK INTO RO 


RTI 
-SBTTL TRAP DECODER 
Ne ge ae ee ng TT I eg gee 


jATHIS gous wth 5 RO ae te ee eRe T HE THE SAE TART NG NG LEDORESS 
; *OF THE pESIRED ROUTINE. THEN USING THE TARkE ER J OBTAINED IT WILL 
:*#G0 TO THAT ROUTINE. 
senate MOV RO, -(SP) SAVE RO 
MOV e(sP), RO CET TRAP ADDRESS 
TST (RO) ; ;BACKUP BY 2 
nove (RO) ,RO ::GET RIGHT BYTE OF TRAP 


; sPOSITION re INDEXING 
MOV S$TRPAD(RO) ,RO ; INDEX TABLE 
RTS RO 360 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAP2: tad (SP) ,-(SP) ;;MOVE THE PC DOWN 


4(SP5,2°SP) ::MOVE THE PSW DOWN 
;;RESTORE THE PSW 
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1ss2 
1553 .SBTTL TRAP TABLE 
1555 s#THIS TABLE CONTAINS THe STARTING ADDRESSES OF THE ROUTINES CALLED 
1556 BY THE “TRAP” INSTRUCTION. 
1557 
558 : ROUTINE 
S60 osss34 $TRPAD: .WORD $TRAP2 
561 055536 052140 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
S62 OS5540 053240 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
S63 055542 4053214 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
564 o55544 953254 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
565 osss46 053442 STYPDS ::CALL=TYPDS  TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN? 
567 
S68 osssso os4obe SROCHR ;;CALL=RDCHR § TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
569 osss5S52 055404 SSAVREG ::CALL=SAVREG  TRAP+7(104407) SAVE RO-RS ROUTINE 
570 ossss4y ossuye SRESREG ;:CALL=RESREG TRAP+10(104410) RESTORE RO-RS ROUTINE 
ec O55556 054346 SCOPE] ::CALL=SCOPER TRAP+11(104411) INTERNAL LOOP ON ERROR ROUTINE 
573 osssé0 0 o2 o42524 TSTMSG: .ASCIZ /’ TEST / 
574 OSS5566 OS2ie3 O00040 
575 055572 o250S2 o20040 000 AS2SP2: .ASCIZ vex / 
576 055577 125 O44516 oS2502 EMI: “ASCIZ /UNIBUS PARITY ERROR/ 


055620 000 
055623 116 O47117 O4e45S ENe: -ASCIZ /NON-EXISTANT MEMORY/ 
O44530 OS 


116 047117 O4e4SS EMS: -ASCIZ /NON-EXISTANT DRIVE/ 
O44S30 O52 
O201e4 051104 05311! 
1 Q4304O EM4: -ASCIZ /UNIT FIELD ERROR/ 
4 eg? 
O411eS OS4S23 EMS: -ASCIZ /SUBSYS TIMEOUT/ 
peer gy O201e3 O44Se4% 042515 
055732 020104 047524 O41440 EME: -ASCIZ /D TO C PARITY ERROR/ 
0040 elll 
feeoee pent ss 1105 047522 
., EM?: -ASCIZ /DRIVE DETECTED PARITY ERROR/ 
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oo0003 OFO4: 3 
000 000 BYTE 0,0 
1076 Wo DA101 
007 000 BYTE 7,0 
1165 DH1o2 
oo2 000 BYTE 2,0 
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12113 062732 000007 OFOS: .WORD 7 :OPI, HVRC 
leis 062734 3610 090 -BYTE Poy 
tiie BPS338 o00 -HORR DML 
1211? Of2742 O611E5 “WORD © DHI0e2 
12118 062744 ae 000 BYTE ¥ 
2120 a eS oc8 000 wore 0 
lel21 O62752 061731 WORD DH&06 
15155 peers oes | BORD bio2 
12124 006 000 BYT 0 
leles O82762 061731 ORD  DH&O6 
glee 062764 003 000 BYTE 3,0 
12128 O62766 000007 DFO7: .WORD 7 
l2le9 062770 000 "BYTE 0.9 
12130 062772 061076 “ DHiO1 
eis! 062774 000 “BYTE 7,0 
lel3e O&8277E OB1IES “WORD  DHIO2 
12133 063000 oo0 "BYTE 2,0 
12134 063002 061557 “WORD  DH6O4 
12135 063004 000 “BYTE 0,0 
12136 063006 O6161e “WORD  DH6041 
12137 063010 000 "BYTE 3,0 
12138 063012 061657 "WORD  DAEOS 
12139 063014 000 ‘BYTE 9,0 
12140 063016 061674 “WORD DHBOS1 
lelai 063020 900 ‘BYTE 3,0 
12143 063022 oo0005 DFIO: .WORD § 
12144 062024 000 “BYTE 0,0 
12145 063026 061076 DAiOl 
12146 063030 000 BYTE 7,0 
12147 063032 O61165 W DHio2 
12148 063034 ooo BYTE 2,0 
12149 063036 061557 “WORD DH6O4 
12150 063040 090 "BYTE 0,0 
12151 O63042 O61612 WORD DHE041 
ieibe 000 BYTE 3,0 
12154 O683046 oD0004 OF11: .WORD 4 
1eiss 000 "BYTE 0,0 
12156 062052 061557 WORD DHEO4 
12157 063054 000 000 BYTE 0,0 
12158 O63056 Ob1b12 RD  DHEO4 
12159 062060 003 ooo BYTE 3,0 
12160 063062 061777 Wo A701 
ele 063064 000 BYT ,0 
12163 063066 oD0006 DF 12: é 
12164 0632070 000 000 BYTE 0,0 
els 061 bA}O1 
4 00 BYT 

12167 063076 Ob11E5 WORD  DHI10e2 


KOe 
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12168 063100 002 000 -BYTE 2,0 
15153 besten 000 000 BYTE te 
1217 re 061 ‘HOD 01 
15 198 ES oon ‘Be 
12173 063112 062257 “WORD © DH2O4 
ee 063114 oo4 ooo -BYTE 4,0 
12176 963116 O00006 OF13: .WORD 6 sFORMAT FOR 2ND LEVEL ERROR 
tise peatse obey | OO “ORs BATOL sENOEND LEVEL HEADER 
15128 pest § 000 - HOR phi itd ENO Ok 
12180 O&3126 O61165 WORD  DHIO2 
12181 063130 000 -BYTE 2,0 
1 132 061470 - WORD DABOL 
lel 134 ooo "BYT! 0 
12184 063136 061731 WORD OH&06 
12185 063140 000 BYTE 3,0 
12186 063142 o62315 RO DHS02 
12187 063144 000 BYTE 0,0 
12189 146 o00006 OF14: .WORD 6 ;FORMAT FOR 2ND LEVEL ERROR 
12190 063150 000 000 “BYTE 9,0 !IN OPERATION INCOMPLETE ERROR 
12191 063152 061076 ORD OH101 
12192 063154 007 000 BYTE 7,0 
12193 063156 O61165 “WORD DAIO2 
12194 063160 O02 000 "BYTE 2,0 
12195 082162 061470 “WORD DH6O1 
12196 O62164 000 BYTE 0,0 
12197 O&3166 061731 RD DH60S 
12198 063170 000 BYTE 3,0 
12199 063172 062315 ORD  DHS02 
1e200 063174 000 ooo BYTE 0,0 
12202 063176 000011 DFIS: . 1 
12203 063200 000 000 “BYTE 0,0 
12204 O63202 061076 “WORD DAI01 
12205 063204 007 000 “BYTE 7,0 
12206 O63208 O611E5 “WORD DHIOe 
1 063210 002 ooo “BYTE 2,0 
12208 O632l2 060737 “WORD A200 
12208 063214 900 000 "BYTE 0.0 
12210 O63216 061270 WORD DHe201 
12211 063220 900 BYTE 7,0 
le2l2 O63222 061357 WORD DHe02 
12213 000 BYTE 2,0 
12214 063226 062356 ORD  OHSO3 
12215 063230 900 BYTE 0,0 
ee BSS co ae Be 
12218 O63236 061374 “WORD  DHe03 
12219 063240 010 000 “BYTE 10,0 
lezel O63e42 OFl6: .W 11 
leeee 062244 saae 000 “Bo 0,0 
12223 063246 061076 DA1OL 
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061165 
soa 
061270 
061357 

002 
062315 
06101 

000 
061374 

010 
000005 

000 
061076 

007 
06115 

002 
062243 

000 


062066 
002 


000001 


000 
000 
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DF 24: 
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ice 063414 002 000 .BYTE 

~ l2eB2 063416 000000 DF eS: WORD 
: 063420 007 000 BYTE 
1 Ob3422 DF2&:  .WORD 
lee86 063424 002 000 -BYTE 
lees? 063426 061374 - WORD 
iscee 010 000 .BYTE 
leeSO 063432 000005 DF27:  .WORD 
12291 063434 000 000 -BYTE 
leeSe 063436 061076 - WORD 
leeS3 063440 007 000 .BYTE 
lees4 063442 061165 WORD 
leess 063 002 000 BYTE 
leeS&  O63446 062102 . WORD 
lees? 06 000 000 .BYTE 
lee98 O0634S2 062066 - WORD 
ices O634S4 002 000 BYTE 
12301, 063456 000005 DF30:  .WORD 
le302e 063460 009 000 -BYTE 
12303 061076 - WORD 
12304 063464 007 000 -BYTE 
12305 O63466 061165 - WORD 
1e306 063470 002 000 -BYTE 
1e307 063472 O62146 - WORD 
12308 0634 000 000 .BYTE 
12309 062126 WO 
12310 004 000 -BYT 
le3li 
le3le DF31: .WORD 
le313 063504 000 000 -BYTE 
1e314 063506 061076 - WORD 
12315 063510 007 000 - BYTE 
1e316 063512 061165 . WORD 
1e317 063514 O02 000 .BYTE 
12318 063516 O62162 - WORD 
12319 0635 000 080 -BYTE 
12320 062225 WORD 
issch 063524 003 000 BYTE 
i 353 063526 RWBUF : 
leseS 063526 O050i5 0040 CO4O NOTMSG: .ASCIT 
le326 3534 020040 20040 920040 
13260 Oeses0 aisses GeS0N) Osstee 
leseS 063556 005015 Ole 
12330 063561 101 O46114 Bete -ASCIT 
1e331 S566 O44Se2 O4eSe6 Ole 
le33e 063574 047524 u41040 020105 
12333 O4¥eSe4 0Sel23 042105 
12334 063610 O4644O 051525 020124 

O40510 Oke2S26 035040 
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;READ/WRITE DATA BUF <AT LEAST 1536(DEC) WORDS> 
(15><12>7 ##% NOTE *£#*/¢(15><12><12> 


“ALL DRIVES TO BE TESTED MUST HAVE :/<15><12><12> 


SEG 0232 
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71. A-20 OR 22 SECTOR FORMATTED CARTRIDGE/<15>< 12> 


. HEADS MANUALLY LOADED ’<15>< 12> 
. DESIRED PORT SELECTED/<15>< 12> 
. WRITE LOCK DISABLED/<15><12> 


40 
12360 06401 O65 020056 pede 4 «ASCII /S. DRIVE READY LIGHT ON/<15><1e>< 12; 
le 7 1 4 S26 -ASCII /DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12> 
ieee Obie) ceoles Diveie Oebies 


10 Ole 
ie 051524 -ASCII /PORTS DE-SELECTED. 7<15><12><12> 


O06 
12376 O64144 O461e0 040505 ated -ASCII 8PLEASE NOTE THAT THE DEFAULT VERSION OF READ/WRITES<15>< 12> 


126385 4230 0S24 040 -ASCII /DATA TEST 21 TAKES ABOUT 1C MINUTES TO COMPLETE, “:iS><le> 
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le3S7 OBS334 051523 947040 
ipa eet bane “rg Se 
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pesos 1117 -ASCIZ /FOR SO HZ CPERRTION, PATCH LOC. 186 = 1./¢15)*¢l2>°1@ 
1240) 4 110 
24 DE4366 O42520 O40Se2e 
i2e803 084374 O47117 Oe00S4 osS20 
lass 4402 O415e4% 020110 047514 
1e40S 064410 027103 O30440 033066 
Le$05 DES415 O3644O 030440 4 
leso? «ObS4e4% O0Sol12 008 
12408 
12803 
12410 
lesil. 000001 END 
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ASKTST 01 
aor ee 
ATESTN= 
RUNIT = 000000, 
AUSWR = 000000 
AVECTI= 120210 
AVECT@= 000000 
avGES 12012 
vGSEK 01160) 
B:SoNT 903050 
8:NORM 903034 
BADDRY 007540 
BADSEC= 001000 
BADESS O12316 
Bal = 000020 
Balg = 00400 
BAl? = 001000 
BOSCHD 036504 
BOSECT 011423 
BOSRCK 037556 
BELOW 012025 
BGNRTY 043400 
170 = 000091 
1700 = 900001 
1701 = O0000¢ 
1702 = 000004 
TT03 = 000010 
TTO4 = 000020 
TTOS = O00040 
TT06 = 000100 
1707 = 000200 
ITDe = 900400 
1708 = 001000 
IT: = 00000e 
Itio = 002006 
IT11 = 904000 
1712 = 010000 
B1T12 = 020000 
—BITI4 = o40000 
| BITIS = 100000 
E172 = O00004 
BITZ = 000010 


OOO COCOCDTMmCOCOMmCOMmInDIDKD 6D 
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BE 
2 


ce 
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10747 §=6114078 
10740 11186 
445) 114048 
10742 11388 
48718 2s 
S021 S040 
47538 4756 
4667 47S28 
2102 fide 
8833 115758 
2102 2106 
2102 21093 
elde ellé 
200Se 2102 
2lde 142 
43288 19 
43018 S869 
32328 6846s 
33338 10318 
33218 6847 
409Se  éS1&# 
4049s 8177 
43658 6952 
30108 10477 
eseés 

23878 

e4S8 8475 
427398 8508 
6175 87378 
433i8 $743 
9031 $384 
190i8 2983 
8051 8068 
18318 1901 
18908 1900 
igese 1899 
1sese 1898 
18878 1897 
18868 1896 
1e8S3 1895 
1884s 1894 
16838 1893 
le82e8 1892 
19008 3001 
18818 2988 
11174 

18808 2989 
18798 2991 
8933 

18788 2992 
8074 8077 
18778 2993 
18768 2994 
9026 

18998 3002 
18968 3008 
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CROSS REFERENCE 
11363 114058 
gee 4 489 
deus cose 
4757 4762 4786 
2141 4522 7 
£909% 6913% 8369 
9108* 9374 10312 
63917# 6918 6327# 
747 875s 93193 
8483s 
9318 
9330 S411ls8 
3000 3026 3048 
8083 Blee 8139 
S621 
c736 5838 
7637 
S366 7450 
7478 7510 
5315 5607 
3197 
3017 3039 
3018 3040 
3019 1 
3020 3042 
8148 8151 
3021 3043 
233s 3022 
3029 3030 
3005 303! 
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ios 
4794 


B4Ses 


69e8* 
9418 


31% 
6193 
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8475% 


6929 


3340 
6235 


4925 
4816 


B4S4e 


6935+ 


3433 
8990 


4947 
4827 


9107% 


6936+ 


4608 
10S92 


4971 
4836 
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4706 


4928S 
4861 
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6955+ 


4996 


9388+ 


6956# 


6576 
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6957 


7322 
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DZREMC 
BIT4 = 600020 
BITS = 000040 
BITE = 000100 
BIT? = 000200 
B8IT8 = OO0400 
BITS = 001000 
BKSLSH 012417 
XH 


Aa39 
4 
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18978 Fey wie 3032 3052 3053 
‘ 368 a5 ef — 3054 Bond. 
rosea «35a «| SBy3 $855 RAE 1888 
- 4984 5004 6063 6301 6370 
18948 §3 a9i2 3035 30 3057 
0 - 4715 
18938 2986 3015 3036 3037 3058 
4048 9017 
18S28 2987 3016 3038 3073 3087 
6542 9020 11286 
anee 70793 ae 
focge eSite 5741 752% 
oi Gf £8 22 22 oe 
pes at e745 
S466" 8469 8538 8743 B74S 
34748 4566 4599 4601 4650 4671 
4765 4769 4804 : 4806 4837 .4840 
4893 49393 4942 4945 5025 5027 
5129 5138 5176 5179 6487 6491 
7e4S5 Ss. 7248 72e50% 7255 7271 
34778 
att 10471 
le 10471 
30028 10125 10471 
20038 5208 210 S212 S220 séS2 
10471 #§=©10555 
ceys 5787 5868 5939 75648 
42718 7427 
2995s 10078 
23888 939884 10434 10491 10542 10565 
2os4e 486-9279 9304 9780 ae37 geg8 
e3slis S661 £683 $538 9S71 gee4 
4768 47978 4801 4608 
a Pare 5303 5351 5390 Ease 
$31 6031 6166 69958 
£184 6211 82538 
4573 4656 4699 47198 
506s S144 
4927 67018 
esshs 
4eS4@ 7576 
75418 7618 
75208 7571 
Sich] 75358 
30118 
6851 Beeee 
2695 biBde 
5804 5824 
4402 4406 
41298  46S2e 
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10434 


S494 


3110 - 


S682 


10131 
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31é4 
3111 
3112 
3098 
3099 
3129 


4682 
4865 


5102 
7101% 


9509 


10446 
10542 


SsS4 





3200 
3128 
3126 
3113 
3114 
3206 


9$11 


10S02 
10565 


5587 


3344 
3201 
3202 
3127 
3128 
3349 


9517 


$773 
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4044 
4045 
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4047 
2248 
$216 


10125 


5860 
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CNTRLC Ol2e36e 
CNTRLG 2408 
CNTRLR 12374 
CNTRL le401 
12367 

CNVTIM 
COE §=6.- =>-—« 001000 
COMMA 8 O0l242)] 
COMSTR 005236 
CONCLR= 000176 
CR 7 SODETe 

s 
cere” reset 
CRTSER 031624 
CRELF 012413 
CS our BETS 
C70 =. =~“ 004000 
CYL! oosso4 

C. INIT 
C.RTRN OS1SE0 
C.SPEC 050700 
DASTRT Ol2Sie 
DOCK = 100000 
DCKERR= 000020 
DCLO = 000020 
DDISP = 177570 
DOT = Ooo400 
003111 
= 900010 
Pek lal OoS650 
Bt oee 
DFS 12456 
ro pe oess 
DF Oe Db2b22 
03 sé 
O44 ié 
os 02732 
07 062766 
10 063022 
i OES04E 
] DESOEE 
13 OESLIE 
le 063146 
is 063176 
1 D&se4e2 
1 063306 
20 0&3332 
21 063342 
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8787 8797 103518 
10511 10518 10521 10528 10532 10549 10571 10576 10588 0595 10608 


9742 9908 10144 
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239923533590 ssa2eS S73, 2479s =H] SHG?) 2503 = S09 
e527 5690S 587) = 611 ~—sLe0748 
2575 581 = 120898 
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121768 
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2ss7 §=122748 
Blll* 816S# 

123018 
6604# 123128 
sice, ELEY 
5333588] 
553 2429 
1 2Se5 
le263 
12063 12076 
12265 = LeeSe 
12065 12078 
12267 8612294 
12271 
12080 12095 
12082 12097 
lelQl ileele 
12103 12218 
le2ig 12235 
2199s 12233 
12182 12195 
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lel3e =: 112151 
12138 
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12248 8612298 
12309 
9928 10600 
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6916 


6122 
7957 


4799 


SEG 0240 


£927 


6241 
8372 


4826 





MO-11-D2REN-C - RKG11/RKOE 
DZREMC.P11 05-OCT-76 10:03 


a26000 
000100 


Q2S3S0 
000030 
OSsS77 


ECCNC 
ECCW 
ECH 


ECOBAD 
ENTVEC= 


PEPE EEE Pree er eer 
entities 


a3 


Efe] 


SUBSYS. VERIF 
4O4S@ 9329 
30778 
30348 9327 
4787 4972 
1S9ll@ 444228 
2164 115768 
22068 116038 
esS4¥ 118108 

St0 0S s« 118148 
118228 
2S72 3 =«6118298 
2578 118338 
2584 118368 
58: tiBugs 
is ileoes 
e602 118538 
2608 118588 
2614 118618 
2638 li8tés 
e644 8118708 
2650 118738 
eel8 116078 
eset 116108 
ee 116148 
e236 «=s«d1‘ 16188 
eetye 1llb2le 
ec4e = 116248 
e170 115808 
2254 116278 
2e2cb0) 3=s:« 116308 
2266 =««L 16338 
2272 = 116378 
ec78 = 116428 
2284 116458 
2230) = «116498 
ecst 116518 
2176 115848 
2202 2422 
2308 2428 
2314 lebe8 
e320 §=6116658 
2326 e626 
e332 6116728 
2238 iipzce 
e344 116828 
2i82 115688 
e350 «§=6116888 
e356 §«8=61169S8 
este 117018 
2368 117068 
2188 115918 
e410 117118 
e416 117158 
a 2440 
19 115948 


9742 


4997 
4423 


117198 


: PART 1 
CROSS REFERENCE TABLE -- USER SYMBOLS 





MACY11 27(1006) OS-OCT-76 10:13 PAGE 243 . SEG S241 


9908 10144 
64178 


“MD-11-DZREM-C - RKGII/RKDG SUBSYS. VERIF. 
05-Oct-76 10:03 


DZREMC.P11 


Em60 38=© 057160 
EME1 Bevis 
ENb2 0S7ebe2 


e 


ES 


a 


000004 
000019 
020006 


- 


117228 


118078 
4872 


ps Tha 


MACY11 27( 1006) 


10032 
5409 
6016 
8203 


8205 
8204 


8850 


8484 


11474% 


9009 
9935* 


: OS-OCT-76 10:13 PAGE 244 SEG Ce42 
criss PREFERENCE TABLE -- USER SYMBOLS 


ees3 essss 
8491 91008 
6cSS* 6SSb* 
662e0# 11314 
1147S* 

9013 9017 
9941* 9973 
S416 S444 
6200 6268 


eges* 9102 3400% 3420 9423 
9373 9388 


6571 6573% 6582%  6583% 
11315* if iP 11320% 11428 11429 


9020 9023 9026 9030% 9708s 
10014* 10038 10083 10135# 10157# 


S447 S449 54S9 5462 S466 


MO-11-DZREN-C - fs oe SUBSYS. VERIF. 





DZREMC.P11 — OS-OCT-76 10:03 
FMTE = 000020 30328 
FORMAT OOSi1S Sai38 
8 
FORWRD BIiSt 43168 
FS 005506 34838 
FT og ooeses ace 
Steen pseer2 ae38 
GETXDP O27D40 4514 
=. EELRES 42b3 

= 000001 
GTPKAD 044104 9335 
GTPRMS 037254 6458 
GTSWRS O2S642 4489 
GTO. =: 37266 8641 
HCRC = 000400 30368 
HOR.AD 003060 33748 
i atb= 79945 jacte 
uisser 6475 at 
HLPOVL 003136 34318 
HLTPRG 043364 4633 
HLTRQD 010024 41338 
HT = 000011 18148 
HVRC = OOO400 3037 
HVRCER= OO0004 4O428 
feo See ee 
1¢ 005716 35738 
6270 
IDRE = 002000 30298 
IE = 000100 29846 
| Ilc = 000001 30268 
ILF = OO0004 30298 
| INCRNA 036174 B4e38 
TNCRSC 036766 a562 
INITMM 25674 5298 
INITSS 027300 Hess 
INIVRE U3ze5S2 5E48 
INPUTP 015300 4668 
INTCHR 005522 3469 
INTMSK 003071 3383 
103118 
= 000300 25748 
IOTVEC= 000020 19098 
= 000100 30138 
T 005736 35818 
I 005724 35768 
AERR 463 9359 
| TlAtTN 046720 9719 
COLR 0475 9797 
STS 047406 3790 
I:¢ST1 047430 9794 
1:ORv 003072 3387% 





9218 
6725 


PART 


MACY11 27( 1006) 


érdss REFERENCE TABLE -- USER SYMBOLS 


10144 


9864% 
10557 


5143 
6612 


* 
10078% 


10229% 
10364 


6024 


6099 
6017 


64738 

8364 
11563 

8387 
10SS4# 
10560# 


7153% 
8383 


9742 


S411 


7707 


99928 
10150 


10499 
10368 


68SE 
i 
6513 
11564 


7156# 


8468 


9908 


5415 


9275 


10510 


7416 8004 
11565 11568 
7309 7324 
93998 9426 
10144 

S451 S4ss 
9300 10088 
5306 S354 
6011 6094 
4966 4969 
8366% 8375 
9828 9853 
10575 


8263 


11569 


7329 


S461 


10152 


OS-OCT-76 10:13 PAGE 245 


8452 847¢e 
11570 =: 11571 
7336 

S465 5507 
10440 3=10481 
S441 5497 
6846s 6898 
4991 4994 
8385 

9971 10012 


SEG Oe43 

8577 9509 9518 
5508 5Sle §513 
10S47 = 10614 

§533 $557 5590 
7382 7416 S446 
5193% S2e36* 6366+ 
10023 10036 10307% 


oa 


MO-11-DZREN-C - RK611/RKO6 SUBSYS. VERIF. ; PART 
OS-O0CT-76 10:03 


DZREMC.P11 


045142 
04 


97958 

g$s 

9781 97938 
98378 

$754 5763 


009 10266 
101808 
100328 
6358 
6531 11414 


6811%  6829% 
11458 


6551 
7995 8169# 
S2be S286 
5514 6268 
4S06 
9104 9159 
10790 «610796 
S744 
5750 
4505 7522% 
80428 
4805 48108 
6 50318 
79718 
1 6105 
00 
parce L4ee 
164 cect 
6944 7422 
6456 
6945 7423 
4774% 
4904 6265 
4916 4918 


B433% B4S4# 


9926 


8067# 


$399 
6271 


9266 


7543% 
6120 


7152 
6260 


6188 
B435* 


77 7719 
9718% 10089 
99 10010 


9798 
9914 
10035 


8076# 


5402 
6275 


9272 


79338 
7157 


6189 
8642 


MACY11 27( 1006) 


8s 
b* 
4 


9803 
9930 
10040 


8138% 


S406 


$291 


7955 
7314 


6192 
8643 


OS-OCT-76 10:13 PAGE 246 
cross REFERENCE TABLE -- USER SYMBOLS 


10S40* 
101208 


eens 
993 
100498 


B146 


5409 


9297 


7316 


6193 


0613% 
0269 
9812 
9943 


81S50% 


S443 


9389 


7319 


6710 


10276 


9821 


9955 


S452 


9445 


7322 


6721 


10283 


9830 
9969 


S4SE 


7327 


6723 


10290 


9833 
9976 


5459 


7332 


6728 


9848 
9988 


§500 


7335 


6736 


SEG Ce44 


9850 
10008 


5505 


7389 


a a i nn ee. 


J1-DZREN-C = RKGLI/RK SYS. VERIF. : PART MACY11 27(1006) OS-OCT-76 10:13 PAGE 247 SEG 0245 
ee ae i BRL LORKOE BS triste ertrence Tages -o” (speed Beis : 
MAHILM 006106 Mee 4919 HSZ2GHOS# GHZGE GHED# GHEIX GHS7 677 EBL «BEED«E7HE 7S 
= 17 15628 8823 
MAP Obs {o0S08 taett FFE ogy 
MAWRDC 010627 q078 = 7339 
MAXEQ 012003 us268 7906 
MAXHI1= 000000 yee S717 
MAXHI2= 000000 uOsie 5805  se26 
MAXHI3= 900000 40338 
MAXHI4= 00000! yo2se 4«S959~— «S977 
mi hes = Ret Ee pom, ter 
MAXI T | BOSEDe Sueba «68708 «= S7OSe «S745. —sCs«S9D1Ss7bGLe «= 7832 
MAXIL? 003216 34648 8903 7ee5e 7759% 7847 
MAXLO1= 062031 Yozes 8720 
O32 017500 yosos 5809 $829 
MAXLOS= 112160 up328 
= 025370 40348 5980 
MAXSEK 011663 u3118  §992 
= i 30728 


34068 aie" 440S* 4408* 4516 4635 4815 5036 6904 6999 8357 


os Bo 1058 spice che 10133 10508 
= 
MEMABT 003135 34298 6610 
MEMCSR= 172100 19538 6574 6580 6621 6629 
MEMSYS= id 19568 6602 
MEMVEC= 000114 34468 4458* 4459 
MERD = 001000 73 
MESMSK= 000017 30668 : 
MEWD = 002000 30748 
MICROS Oie0el 43308 7897 7910 7923 
MIDXFR 0370 85998 8672 
p00200 30718 
MINEQ 011774 43248 7893 
MINHI1= 40278 S711 
MINIH1 002204 34598 5696 S701x 7660 
MINIHe O003¢14 34638 7664" 
MINILI OO3202 34588 5699 S702e 5739 S803 S956 7659% 7829 
MINILS OOzele 34628 5823 5974 7663* 7844 
MINLOI= 057467 4oe6e = 714 
MMVEC = 0002 19208 4479* 44e0x 
MODPIS 030654 5068 42s S14?)—s—i‘é7208S 
MPERHD 26142 4458 40s BS 928 
MSP = 900100 30708 
MXWRDC 031430 733 7357% 
M.CADD= 017760 31428 
M.CDIF= 017760 31418 
M.DPID OSo4e2 5897 5905 7613 7801 7808 7883 10839 
M-DPIM OS2422 7735 #7756 ##+$7874 #«©«&38283 8295 8305 108108 
M.DPO1 052432 108138 10822 
M.DPO2 O52452 10817 108218 
MH BPay 052554 {pees ee 
M.DP42 OS2564 10861 108668 
M.DP44 OS2b16 10873 108788 
M.DPSC 052630 10848 108828 ‘ 


MO-11-DZREN-C - RK611/RKOE pees VERIF. 


DZREMC.P11  OS-OCT-76 10:0 
M.ORV = 000007 31388 
M.HEAD= 007000 3145s 
M.ID = 000003 31408 
M.PAR = 100000 31398 
Henk at 
NCYL1 l aided 5296+ 
c445 ss S451 
sso9 ss SS lee 
NCYL2 O05 14 34868 S500% 
 ® 10000 3019% 6336 
O2Sil2 63268 6909 
NEM = 004000 3018% 9133 
NEWORY 016772 51908 S200 
NEWMSG oo7eii 4OS4# 6477 
30 34928 6349s 
NEWPAS 016760 4401 51878 
ST oOOSS4E 34988 
NMTSTS= 000021 5254 
S861 5932 
NOCHK = 320S# 10376 
NOCLKS O114S2 42868 4509 
NODRTS 4 41248 4625 
NODSC = 32108 9359 
NOFALS 011443 4oB28 4624 
NOR 003133 34278 68S0# 
mre EY 
tiave ¢ 8 
NOTMSG pesese S469 123258 
NOTYPE 003137 34328 4467 
NTREDY 4104 6930 
NULINP O1S0S4 4803 48188 
NXDRIV 007551 41018 6919 
OCTBIN 051702 4848 SOD 
OFFSET= 000115 29588 10421 
OFINUS OOSS16 34878 
one r 011632 aoeee 5840 
ONLINE O05526 34918 
OPCOMP O0311e 34108 
Spree en Soaoe 8489 
=. + 4 
OPIERR= 000010 - 4043e 9262 
OPNLST . 016144 488 5017# 
OR = 30148 
OREGSW= GO0020 34378 
CVLODR 007333 40738 4932 
0.WAIT 903044 33548 964e 
PACK = 000103 239538 «66941 
| PARMDE 010543 41978 4873 
FARM] 704 sores cece 
PART = Sosbb0 170 [ree 
198 200 
3se8 03695 


: PART 1 


5397 S4O1* 

cect S4sse 

5514 875% 

5503 cSog* 

$138 9148 

9736 9992 
93 8877 

6910% 6914 
325 

5278 5304 

60093 6092 

10438 10479 

9964 

es15 

9416 

4907 

4470" 

5140 5180 

$260 9742 

9411 

5022 5029 

St46* 9756 

6843 £977 

S $47 


MACY11 27( 1006) 
CROSS REFERENCE TABLE -- USER SYM 


5352 
1 


» 
?. 


6492 


9908 


S40S* 
S461% 


5879 
9799 


5391 


7256 


10144 


S406 
S462 
5887 


10142 


5439 


6167 
.,, 405068 10524 10545 


106428 


S4ilx 
S4ES* 


10512 


S495 
10568 


98SS* 


9437 


1804 
3547 
3626 


OS-OCT-76 10:13 PAGE 248 
BOLS 


SEG 0246 
S416 5418 S444 
S499% 5501 5507% 
5528 5638 $780 


9870 10414" 10474* 10536 10553+ 


S412 S41S# 
S466 5468 
§531 S555 
10577) 10611 
9488 9619 
1805 1963 
3564 3873 
3636 3640 


1974 


1970 1972 
3576 3$81 3583 
364 365C 36593 





. PART J MACYLI 27(1006) OS-OCT=76 10:13 PAGE 249 SEQ 0247 
tnise REFERENCE ToaLE =< udeR eymBeLe z 





be KET HES KTH HOSS 058 wees 436 4404 4464 HET 4492-4909 
946 5237 5243 6288 6231 £€ 6761 6783 698 7437 7515 Ge4e BH 
e420 «8761 «612323 «12324 «12372 140s = 12409 

PARTL 07273 4osee = 446 

PART er? 40678 

|; Part = nite 

ERTRN ® 6175+ sO44 8115 8222 S640 

PETOO §©6 00617 3808 804 4869806. «= B11? 

PATO1 06236 37028 

TOE © D08=76 37248 

PAT 506336 37468 

PaTo4 O06s76 37688 

ae ee || eit 

43 : 

base OOES3E 36338 

PaTOS  OO&S7E 38548 

PaTOS 006636 38768. 

PATIO 06676 36988 

PaTi1 06726 35208 

pevie 06776 39428 

PaTi3 007036 39648 

PaTi4 007076 39868 7973 

PATIS OO7136 4006s «71823 «= 72b1*e «= 726 7% 

| PBLKT 003102 333988 8%39) «= 9728 (i720 9920)S HS 10363 

| PBSvAL= O01 32068 

| PCR = 30758 

| PCO = 010000 20768 

PCLKF 003122 3418s 4493" «4497 «69752007541 

| PCVEC 003152 34458 4496 

| PFIFTN 011040 W2348 4987 

| ey . 002900 78 $206 10i4e 

PIRQ = ESSE ig2ls 

| PIRGVE= 000245 191Se 

| PKRE 003146 sH438 

| PKS 003142 le 44 7528 7545# 

exSe 003144 age 75c48 7% 

| PLoFsT O0boe4 5 

| PMA” «=: 05572 z505 b192 1938 e643 ae B03 «8134 = S214) B21 Ss SH LH#® «= SEIS# §«= SE LE*® ©8817 

i * + 

| PROFLT O0575¢ 35928 4 5031 5034 73 114 

| PREPGR O2E3b2 6198 = bb4ie §=6BE2S BEB 

| PREPKE 025330 4776 «49610-4973 «4998 = S257 0 5281 «= 5307 S355 ssS30H Ss Sues SSG = S534 SEES 

S53) Ses 7830 see4 )«=s «S835 ssOl2 «= 09S )=s 6170S BHOls «= 8388 . 

| PRMBUF 012432 43858 67150* 715] 

| PRMINP 370 40788 

| Peon 26158 raha 73Ut 7324 «732702 7329~Ctsé«7233322 

PRMLST 005712 35708 494979 «5032 «= 0720s $113. 71520 7156 «= 7319 97335" «733 

| PRMNEM 906132 36568 49 S053 «§109.-—Ss«sw7150 Ss 7184 «= «7210S 7307 

| PRMPHO 005254 34718 e82l* 12058 

—-PRMPLO 005252 Os 882c# 12058 

| PRMESE plete? 42698 ©5054 

PROMPT «Ol 43688 4657 4823 4874 SONS 7233 

 PRYCMD 05222 Se 483 8810 3073 

009505 16388 Wee 4865190 sé& 9438 ©9515 


BRB 





? 
a 
4 


DIREMC 
os 
ask) 
PRY 
bss 
PRE 
PR? 


Pe TART Arse 
< = 177775 
PWRMSG 054324 
aoe ee 
a = 
F.ROO = Saar 
P.801 = 000044 
e7et; = posses 
-All = 
P.BAL0= 000010 
P.BAR = 900024 
P.B00 = 000042 
M1. = QOO004E 
P.B10 = 000052 
©.Bi1 = OO00SE 
P.CMND= 000001 


2 #2 
a 1] wv 


ce ise 


; 
| 


10376# 


LYRKOE SUBSYS. VERIF. : PART 1 
; 0 CROSS REFERENCE 


4459 
S4lle 


9515+ 
6175 


4480 
44824 


6176 


04 


MACY11 27( 1006 
TABLE -- USER 


4500 6556 
$190#  6960# 


6202 
11265# : 


‘re 


904s 
6168# 


10293# 


3 
10463 10469# 





0S-0C 


) 
SYMBOLS 


6596 
9628 


69462 


76 10:13 PAGE 260 


11266 
S634 
7213 


‘aha 


74244 


9475 
10018 
10479 


11267 
3645+ 


9979 


8407# 


9641s 
10022s 
10506 


10387 


84574 


9531 


97S54# 
10032# 
105162 


10358# 


S4E9s 


9832 


SES De4e 
106174 
S617# 3052 
bl2l* 62218 
744342 74524 
9S14* $772 
10534 10551 
gevs* 9983 
104402 10441 
10497 =610502 
10599* 10600 
9511# 9513# 

97393 
10S&3 
S360# #S364s 
SS3s* sSSSos 
S873% Sg87os 
$271 62744 
8449+ ess] 
$561 9557 
9816# 9823 
10199% 10301 
10s45 10568 








a eee ee eee 


MO-11-DZREN-C - RKEIIVRKDE SUBSYS. VERIF 
OZREMC.P11 | OS-0CT-76 10:03 
ape 1057710612 
.SECT= O000D4 pape pois 
g4eda 8481 
>. TROK= 900005 } oe 1S 
BE0Es 
P.we = 900012 31918 021% 
Bbide 8636 
P.WOR = 000022 32238 ©9057 
9. INIT= ery 5215s 
sBhaus Boon tS shee 
RCLREQ= OO4000 Wosie 9184 
OO01e4 29718 9772 
| ROCHR = 104406 7045 115688 
ROCHRS 030174 uss2 444 
70388 7217 
RDDATA= 000121 29608 
ROGATE= 1 30798 
ROHDO. 04 9271 9p% 
| RDHEAD= 29628 S206 
| ROSTaT= 000141 29708 6908 
| Fecen = posits a 
| RECODE 005474 34788 6051 
| S131# 2136" 
$266 92 
9357+  936e« 
“-REDESF o2ED42 e2a0" B44Se 
| REISSU 003130 34s4e «62188 
| RELEAS= 900150 2oE98 B40 
oo is |e Be 
| RESREG= 104410 E674 ss“ § 723 
oe oS 
| RESVEC= 000010 19058 
RETAN 043552 S107 9386 
| RETNML 043570 6351 9493 
| REVRSE O11744 43208 «5914 
| RHEDHD 021744 sese ss S 7608 
| RKASOF= It 59388 46 S466 
| Ereror” Beoace Soese | GeSB 
SoS Wx S355" 0568. 
| RKCS1 = 900000 29318  46S2* 
16443 104828 
RKCS2 = 000010 29358 © S46] 
= 00 29348 9463 
: 29418 S217 
| RKOC = 29398 © S462 
RKDCYL= 000020 29408 9881+ 


. + PART 1 
GROSS REFERENCE 


10237 


~ 
06) 
R SY 


MACY11 27(10 OS-OCT-76 10:13 PAGE 251 SEG C249 
TABLE -- USE MBOLS 
7% O74* + 1834 0 
a a 
ao. die date Ge Ee EE use gee ee 
d l+ & Ce 
423% Suef, ee 7986% 54&3 ae B26: £291 84504 
$203 6210" 69478 7425# §319 B332# B8408# 8425 Succes 
$239 3244 92493 9383 
4798 4825 4875 4933 §019 5047 sOSé 5168 6478 
7421 8448 
9514 9es&6 10567 
10487 
9385 10430 
8177 8666 86693 8747# 98755% 46 Sé# 9103% 93104 
9is4# 9189% Seege Ses4# Jesse 3e44# 9e49% Ses4e  Sebe# 
9237 93le# 9319 Q$3see# Jseb* J3seSe Ja42"% 3343 93Se% 
938i 9383 93893 g2si# S411 W113 318 ese W445 
7708 8114 84E5 90378 9109 
6668 6713 6794 7348 7405 7619 77 7761 7811 
gog3s 8176 8237 8334 8328 841s 84 gsi 8565 
8973 goss 9440 9489 9520 9879 109514 10966 115708 
9932 10187 10235 104%24%e 104495 
104S7% 
4S540# 6848 7706 9274 3239 9378 327 9458 9635 
632el# 7689 7707% <Q174*e #<S$2e7S5% 9279 9300* 9304 $460 
9896 10078* 10079 Q0es# 10l2e7# 10128 1015e% 10180  l044ls 
10S26% 10548* 105708 10579* 10589 10599 lO&14* 
10l2e3* 10181 10229 l04l2% JO478% 10489" 10539% 10563# 1058ss 
10232 10418# 10460 10562% 
9277 9278 $301 9302 9303 9861 $862 9863 
10417# 10459# 10S61+# 





: 


-Pll 


ae 


ine 


ay 


BE 


cenit 


~ 
He 


8a: 

ies 
2290 

ae 


ae 
se 

aaBh 

& 


aan 38 
ee 


“a Th - RK 


42738 
4892 


10544 
7229 
7286 
50338 


SYS. VERIF. : PART 1 
CROSS REFERENCE TABLE -- USER SYMBOLS 


9467 
191 


is 


10189 i0e66# 10e73% 102e80# 10287# 10368 


4525 
10230 10458# 


9820 9891 
10531 10585 10594 10607 
ue 10454 10527 10615 
















O4 


MACY11 27(1006) OS-OCT-76 i0:13 PAGE ee SEG 0250 
9730 10185 10233 


9905 10186  i0e34 


4547 4563# 9634 1063558 


# 4542 4S45# S6S6# 5S754# 7685  7700% 


£020 6047 6100 61793 6£08 £946 6953 7424 7429 7934 
8401 8407 8638 le3238 


9649 10027 10047 103078 10517 
9913 9936 9942 9975 1001S 10039 10084 10136 


6641 6701 6773 6776 7304 7381 7564 7730 7750 
73994 8042 8109 €171 8256 8399 8423 8503 gs59 8599 
8803 8868 8986 9038 9100 9457 3498 9539 10899 10940 


SS9S*# S601# 5S613# 5619 


4616 * $680# $725 876% S878  S94E# 
6033 nee 6063 7080# 7082# 7083 7098 7734 


70S3% 7094# 


5343 7449 7686 810405) 10415 
$310 $313 $319 $358 $361 5365 5370 5374 5398 S419 
5471 $502 5504 $537 $560 5562 S564 5598 5600 S616 





5104 






il 
SETTUP 030032 
SIZMEM 25362 
SKI = 000002 
sé 005754 
Ser] Hi 
SPACES 012427 
SPACES 912426 
Spacee | pisuss 

12423 
SPAR = 20000 
012234 
SPDLSS= 000020 
entsers Beatty 
tag” = iP7e93 
SR1 = foe Ley 
25 : 1ocere 
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